[shotkill]

Код:

procedure TMainForm.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
control:=Socket.ReceiveText;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
    ServerSocket1.Active:= true;
    ClientSocket1.Active:= true;
  Data := TStData.GetInstance;
  Questions := TObjectList.Create;
  Answers := TObjectList.Create;
  Load;
  Questions.Sort( RandomList );
  QIndex := 0;
end;

Вот код. Как сделать так чтобы procedure TMainForm.ServerSocket1ClientRead выполнялась первее чем TMainForm.FormCreate ??или чтоб внутри TMainForm.FormCreate выполнялась TMainForm.ServerSocket1ClientRead ??