[GRAY_WOLF]

Вот сборник всех либ что есть уменя.
Перекодировка

// Перекодировка из Win-1251 --> UTF-8
function win2utf(s: string): string;
var len, ch, i: integer;
sstt: string;
begin
sstt:=''; len:=Length(s)-1;
for i:=0 to len do begin ch:=ord(GetChar(s,i)); if ch>122 then sstt:=sstt+chr(ch+1104) else sstt:=sstt+chr(ch); end;
win2utf:=sstt;
end;

Загрузка текста из корневого каталога

// Загрузка текста из файла
function LoadText(fn: string): string;
var
res: resource;
line, line2: string;
begin
res:=OpenResource('/'+fn); line2:='';
repeat
line:=ReadLine(res);
if line='###' then break;
if line='#' then line2:=line2+' '+chr(13); else line2:=line2+' '+chr(13)+win2utf(line);
until false;
CloseResource(res);
LoadText := line2;
end;

Еще что нужно стучи в аску.