Hola
Pues tenéis razón todos, de todas las formas que me habéis dicho funciona:
El problema estaba en que ponia text y no Txt, sutil diferencia.
Sirve:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var
Ruta: String;
begin
Ruta:= ExtractFileDir(Application.ExeName)+'gen.Txt';
Memo1.Lines.LoadFromFile(Ruta);
end;
Sirve:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile( ExtractFilePath( Application.exename) + 'gen.txt');
end;
Sirve:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('gen.txt');
end;
Osea, todas las formas sirven, ahora solo me falta saber como lo hago si el archivo esta en el USB.
Gracias a todos.
Saludos