procedure TForm2.Button3Click(Sender: TObject);
var I,ih: Integer;
     s:string;
begin
memo4.Lines.Text:=''; //Memo4 ist die Liste wen man nicht erreicht hat
ih:=0;
while ih<= memo3.items.Count-1 do
begin
  TcpClient1.RemoteHost := Memo3.items[ih]; //Memo3 ist die Liste an wen es gesendet werden soll
  try
    if TcpClient1.Connect then
    begin

      for I := 0 to Memo2.Lines.Count-1 do //Memo2 ist das Eingabefeld
      begin
      TcpClient1.Sendln(Memo2.Lines[I]);

      end;

    end
    else
    begin
    Memo4.Lines.Add('Konnte '+memo3.items[ih]+' nicht ereichen');
    if Checkbox2.Checked then
    begin
      memo3.Items.Delete(ih);
      ih:=ih-1;
    end;
    missed:=missed+1;
    Statusbar1.Panels.Items[2].Text:='Nicht erreicht: '+inttostr(missed);
    end;
  finally
    TcpClient1.Disconnect;
  ih:=ih+1;
  end;
Memo1.SelStart:=length(Memo1.Lines.Text);
Memo1.SetFocus;

end;

Memo1.Lines.Add('Sie ('+DateTimeToStr(GetCurrentDateTime)+')'); //Memo1 ist das ChatFenster
Memo1.Lines.Add('');

Memo1.Lines.Text:=Memo1.Lines.text+Memo2.Lines.text;
    if memo4.Lines.Text <> '' then
    begin
    Memo1.Lines.Add('');

    Memo1.Lines.Add('===== Begin of Log =====');

    memo1.Lines.Text:=memo1.Lines.Text+memo4.Lines.Text;

    Memo1.Lines.Add('===== End of Log =====')
    end;
    Memo1.Lines.Add('');
    Memo1.Lines.Add('');
end;

procedure TForm2.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
  s,d: string;
  i,col:integer;
  files: TFileStream;
begin
  if Memo5.Lines.IndexOf(ClientSocket.LookupHostName(ClientSocket.RemoteHost)) <> -1 then//Die Memo5 ist eine IgnoreList
  begin
  igno:=igno+1;
  Statusbar1.Panels.Items[3].Text:='Ignorierte Meldungen: '+inttostr(igno);
  Statusbar1.Panels.Items[4].Text:='Letzte Ignorierte Nachricht ist von: '+ClientSocket.LookupHostName(ClientSocket.RemoteHost);
  abort;
  end;

  if Memo3.items.IndexOf(ClientSocket.LookupHostName(ClientSocket.RemoteHost)) =-1 then
  begin
  messagebox(0,'Ein Chatter hat ihnen eine Nachricht geshickt,'+#10#13+'er wurde der Liste hinzugefügt','Neuer Chatter',0);
  Memo3.items.Add(ClientSocket.LookupHostName(ClientSocket.RemoteHost));
  end;


  col:=strtoint(Memo6.Lines[Memo3.items.IndexOf(ClientSocket.LookupHostName(ClientSocket.RemoteHost))]);

  memo1.SelAttributes.Color:= col;
  memo1.lines.Add(ClientSocket.LookupHostName(ClientSocket.RemoteHost)+' ('+DateTimeToStr(GetCurrentDateTime)+')');
  memo1.Lines.Add('');
  s := ClientSocket.Receiveln;
    while s <> '' do
  begin
    memo1.SelAttributes.Color:= col;
    memo1.lines.Add(s);
    s := ClientSocket.Receiveln;
  end;


  memo1.lines.Add('');
  memo1.lines.Add('');

  If (not Form2.Active)and(Checkbox1.Checked) then // Hier soll es piepsen wenn das Fensterinaktiv
  begin
  windows.beep(1000,200);
  windows.beep(1300,200);
  windows.beep(1600,200);
  end;
end;