Socket Problem

[Tobiax]

Hallo ich habe ein kleines Problem und zwar weis ich nicht weiter ich hab denn kleinen teil des Codes gepostet und zwar
if Open then meint er muss BOOLEAN sein habs schon mit := True probiert usw aber finds nicht raus kann mir jemand bitte helfen.

Delphi-Quellcode:

var
xcolor : Integer;
username , password , nickname , join : String;
begin
 join := (nickname + 'hat denn Chat betreten');
 username := ('$' + Edit4.Text);
 password := ('$' + Edit5.Text);
 nickname := ('$' + Edit3.Text);
 ColorBox1.Selected := xcolor;
 with Form1.Client do
  begin
   try
   Host := Edit1.Text;
   Port := StrToInt(Edit2.Text);
   Open;
   if Open then
      begin
      Form2.Close;
      Form1.Lines.Enabled := True;
      Form1.Eingabe.Enabled := True;
      Form1.send.Enabled := True;
      Form1.Lines.Lines.Add(join);
       if Radiobutton1.Checked then
        WriteLn(username + nickname + join + IntToStr(xcolor));
       end else
        if RadioButton2.Checked then
         WriteLn(username + nickname + join + IntToStr(xcolor) + username + password);
   except
     showmessage('Falsche Daten / Eingabe');
   end;
 end;
end;

mfg TobiaX