1:

Memo1.LoadFromFile();

1: 
2: 
3: 
4: 
5: 
6: 
7: 
8: 
9: 
10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 
18:

...
var datei,f : textfile;
...
datei := '/pfad/zur/datei/datei.txt';

assignfile(f,datei);

reset(f);

while not EOF(f) do
 begin;
  readln(f,zeile);
  Memo1.Lines.add(zeile);
 end;
...
CloseFile(f);

1: 
2: 
3: 
4: 
5: 
6: 
7: 
8: 
9:

uses ShellApi;
...
begin
  exeName:='{Hier der Name der Anwendung}';
  param:='[{Hier die Parameter rein}]';
  ShellExecute(Application.MainForm.Handle,NIL,PChar(exeName),
             PChar(Param),PChar(ExtractFilePath(exeName)),SW_SHOWNORMAL);

1: 
2: 
3: 
4: 
5: 
6:

assignfile(f,'datei.txt');
reset(f);
writeln(f,Edit1.Text);
closefile(f);

1: 
2: 
3: 
4: 
5:

write(f,Edit1.Text);
write(f,'  ');
write(f,Edit2.Text);