[ecfisa]

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