socket fehler stoppen

[jaduke]

Hi,

hab auch so ein Problem mit dem EIdSocketError... Habe in die uses-Klausel die IdException eingebunden aber er sagt mir trotzdem das EIdSocketError ein "nicht deklarierter Bezeichner" ist.
Hier ist mein Program Code

Delphi-Quellcode:

procedure TWebSpider.Nachricht_holen;
VAR tmp  : String;

BEGIN
  IF NOT (Length(Server_IP.Text) = 0) THEN
  BEGIN
    try
      IdFTP1.Host := 'Server_IP.Text';
      IdFTP1.Port := 21;
      tmp := copy(RadioGroup1.Items[RadioGroup1.ItemIndex],2,
                  Length(RadioGroup1.Items[RadioGroup1.ItemIndex]));
      IdFTP1.Username := tmp;
      IdFTP1.Password := 'Gote_San_seine_Nachricht';
      IdFTP1.Connect;
      IF IdFTP1.LastCmdResult.NumericCode < 400 THEN
      BEGIN
        IdFTP1.Get('motd.txt','motd.txt');
        IdFTP1.Quit;
        Memo1.Lines.LoadFromFile('motd.txt');
        Memo1.Visible := TRUE;
        DeleteFile('motd.txt')
      END
      ELSE ShowMessage('Bitte ueberpruefen Sie Ihre Eingaben!');
      IF NOT FileExists('motd.txt') THEN ShowMessage('Es ist ein Fehler '
                                                     +' unbekannter Art aufgetr'
                                                     +'eten! Bitte ueberpruefen'
                                                     +'Sie Ihre Eingaben!');
    except on EIdSocketError DO ShowMessage('Bitte ueberpruefen Sie Ihre Eingaben!');
    END
  END
  ELSE ShowMessage('Bitte geben Sie die Server-IP ein!')
END;

kann mir wer helfen???

danke schon mal