Hola euMesmo.
Es verdaderamente extraño... En mi código original de prueba funciona correctamente:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
var
fichero: TStringList;
begin
fichero:= TStringList.Create;
try
fichero.LoadFromFile(UTF8ToAnsi('C:\tmp\ÁéíóúÑñ\ÁéíóúÑñ.txt'));
Memo1.Lines.Assign(fichero);
finally
fichero.Free;
end;
end;
Muestra:
Prueba realizada en Windows 7 y Lazarus Ver: 1.2.6 - Revisión SVN: 46529
Saludos