Problem mit TCP Server.Execute

[STS301]

\\edit: habe es jetzt auch versucht mit einem Thread

Delphi-Quellcode:

if MessageDlg('Ihnen wird die Datei ' + file2 + ' von '+ name2 + ' geschickt! Wollen Sie diese annehmen?'
,mtConfirmation, mbokcancel, 0) = mrYes then save; 

//so soeht die Procedure aus
procedure save;
begin
 savedialoge.execute(file2); //nur leider findet er in der Procedure den SaveDialoge nicht
end;

hat jemand eine bessere Lösung??