Приветствую, .silent!

s> Скачал как-то один исходничек и нашел там такие функции как WideToAnsi
s> и AnsiToWide. Где такие можно найти? Т.к. вместе с проектом они не шли,
s> а стандартных таких вроде нет.
s> Пример:
s>

ANSItoWide(tmp^.Desc, ws, CP_ACP);

А в чем проблема? По крайней мере для CP-1251 все примитивно:

function AnsiToWide(const Src: AnsiString): WideString;
var
i: Integer;
begin
SetLength(Result, Length(Src));
for i:= 1 to Length(Src) do
Result[i]:= WideChar(Src[i]);
end;

function WideToAnsi(const Src: WideString): AnsiString;
var
i: Integer;
begin
SetLength(Result, Length(Src));
for i:= 1 to Length(Src) do
Result[i]:= Char(Src[i]);
end;

Удачи!