[roamer]

В D 2009 можно использовать конструкцию:

procedure TStrings.LoadFromFile(const FileName: string; Encoding: TEncoding);

Например:

Код:

 Memo1.Lines.LoadFromFile('file_name.txt',TEncoding.UTF8); //utf8
 Memo1.Lines.LoadFromFile('file_name.txt',TEncoding.GetEncoding(1251)); //win-1251
 Memo1.Lines.LoadFromFile('file_name.txt',TEncoding.GetEncoding(20866)); //koi8r, кажется

и т.д.