Problem mit TCP Server.Execute

[STS301]

hi

ich versuche gerade Daten mit TCP Server und Client zu verschicken--> das Problem

Delphi-Quellcode:

procedure TForm1.serverExecute(AContext: TIdContext);
var
  name2, file2: string;
begin
 name(AContext.Connection.IOHandler.ReadLn); //bei beiden Befehlen zeigt er mir an, dass Operator oder Semikolon fehlt
 file(AContext.Connection.IOHandler.ReadLn); //hier auch noch "Anweisung erfordelich, aber Ausdruck vom Typ String gefunden
 if MessageDlg('Ihnen wird die Datei ' + file2 + ' von '+ name2 + ' geschickt! Wollen Sie diese annehmen?'
 ,mtConfirmation, mbokcancel, 0) = mrYes then {mit SaveDialoge.execute(file2) funktioniert es nicht} ;
end;

der Befehl zum Senden

Delphi-Quellcode:

procedure TForm1.sendClick(Sender: TObject);
begin
 client.Connect
  try
   client.IOHandler.Writeln(name1);          //name1 und file1 sind als String abgespeichert
   client.IOHandler.Writeln(file1);          //Datei/Datein werden gesendet
   client.Diconnect;
 except
   form1.close;

wenn ich es mit WriteFile und ReadString versuch klappt es auch nicht wirklich??

Wäre dankbar für Hilfe (hoffentlich waren das nicht zu viele Fragen in einem Thema)