[PS11011010]

Код:

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

Так не вариант?