1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

 // Antwort erhalten und auswerten
 procedure TSchiffe.SocketRead(Sender: TObject;Socket: TCustomWinSocket);
  var Meldung:String;
  begin
   Meldung:=Socket.ReceiveText;
   if Length(Meldung)=2 then Auswerten(Meldung)
   else if Length(Meldung)=3 then SchussAuswerten(Meldung)
   else if Meldung='?????' then StellungsSpionage
   else if Length(Meldung)=100 then StellungZeigen(Meldung)
   else if Length(Meldung)<=20 then HinweisZeigen(Meldung);
   // Der folgende Ausdruck ist wahr, wenn beide
   // Boolean-Variablen den Wert True oder beide
   // den Wert False haben
   ShallMove := not (IsServer xor Dran);
   UpdateCaption;Delay(1000);
  end;