В 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, кажется
и т.д.