[shotkill]

Код:

procedure TMainForm.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var FileName,putk,prob: string;
begin
sEdit1.Text:=Socket.ReceiveText;
             prob:= sedit1.Text;
 putk:='''';
 putk:= putk + prob;
 putk:= putk+'''';
 sedit2.Text := putk;

end;

procedure TMainForm.Load;
  var   fileName:string;

begin
FileName:=  'C:\Documents and Settings\ADMIN\Рабочий стол\Test\sample2.stx';
      Data.Load( fileName ); // Получаем данные
      LoadData; // Загружаем данные в форму

 end;

смысл в том что ServerSocket1 принемает от сервера текст который обрабатывается и должен по ПЛАНУ потом вставляться в FileName но процедура TMainForm.Load; выполняется первее чем ServerSocket1 принемает текст, а надо наоборот..