Problem mit if then Anweisung

[Tzuxy]

Guten Tag,
ich hab gerade ein kleines Problem mit meinem Programm. Ich möchte eine If-then Anweisung starten. Will diese aber nur starten wenn wiederum was anderes zutrifft.
Ein kleiner Auszug

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if clientsocket1.Active = false then showmessage(' Es ist noch keine Verbindung aufgebaut');// wenn die verbindung inaktiv ist möchte ich die nächste Abfrage nicht starten
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;

mfG Werner

[edit=sakura] Alles ist Dringend!!! Mfg, sakura[/edit]