{ Hier beginnt der Quellcode für die Login-Überprüfung }
if StatusMelder = 1 then
 begin
  for n:=1 to length(gesendet) do
   if gesendet[n]='*' then
    begin
     Wort := Copy( gesendet, x, n - x);
      if (Kenn <> '') and (Pass = '') then
       begin
       Pass := Wort;
       end;
      if Kenn = '' then
       begin
       Kenn := Wort;
       end;
     x := n+1;
     end;
   n := length(Kenn);
   Kenn := Copy( Kenn, 1, n-1);
  if
   Table3.Locate('Kennung ; Password', VarArrayOf([''+Kenn+'',''+Pass+'']),[]) = false
   then
    begin
    ServerSocket2.Socket.Connections[0].SendText('0');
    exit;
    end;
  if
   Table3.Locate('Kennung ; Password', VarArrayOf([''+kenn+'',''+pass+'']),[]) = true
   then
    begin
    ServerSocket2.Socket.Connections[0].SendText('1');
    exit;
    end;
  end;
{ Hier ENDET die LOGIN-Überprüfung }