[[Caral]]

Hola
Gracias a todos.
Por ahora no me funciona, he hecho esto:
No va:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
Ruta: String;
begin
  Ruta:= ExtractFileDir(Application.ExeName)+'gen.Text';
  Memo1.Lines.LoadFromFile(Ruta);
end;

Tambien esto:
No va:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
Ruta: String;
begin
  Memo1.Lines.LoadFromFile( ExtractFilePath( Application.exename) + '/gen.text');
end;

Gracias por ayudarme.
Saludos