Problem mit if then Anweisung

[Die Muhkuh]

Zitat von Tzuxy:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if clientsocket1.Active = false then 
begin
  showmessage(' Es ist noch keine Verbindung aufgebaut');// wenn die verbindung inaktiv ist möchte ich die nächste Abfrage nicht starten
  Exit;
end;
if edit2.Text = 'Nickname'  then showmessage('Bitte deinen Nickname eingeben!')
  else memo1.lines.add(edit2.text + ': ' + edit1.text);
if edit1.Text = 'Nachricht' then Showmessage('Bitte deine Nachricht eingeben!')
  else memo1.lines.add(edit2.text + ': ' + edit1.text);
Clientsocket1.Socket.sendtext(edit2.text + ': ' + edit1.Text  );


end;

Schreibs so.