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

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var i:integer;
passwort,SendText :AnsiString;
begin
passwort:= Socket.ReceiveText;
  If passwort[1] = #11 then 
  begin
  Delete(Nachricht,1,1); 
  If passwort = 'Passwort' then //aulesen von listbox oder Memo 
  begin
     SendText := #12; //Richtig
  end
  else
  begin
  SendText := #13; //Falsch
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var Text : AnsiString;
    SendT : AnsiString;
begin
Text := Socket.ReceiveText;
  If Text[1] = #11 then 
  begin
    SendT := #11 + passwort.text; 
    Socket.SendText(SendT);
  end;
Text := Socket.ReceiveText; 
  If Text[1] = #12 then 
  begin
  Form2.Show;
  end
  else
  If Text[1] = #13 then
  begin
   Application.Terminate;
  end;
end;