[Дельфин]

Вообщем вот мои начинания, начал я с малого, в этом коде должна просканится 75 подсеть моей сети на анонимной доступ ФТП, но прога не компилится, а вылетает причём не выдавая никаких ошибок, в чём может быть дело?

Код:

procedure TMainForm.ConnectButtonClick(Sender: TObject);	
var	
  A: Integer;	
  B: Integer;	
  C: Integer;	
  D: Integer;	
begin	
 A:=192;	
 B:=168;	
 C:=75;	
 for D:=StrToInt(GOEdit.Text) to StrToInt(ENDEdit.Text) do	
  begin	
 IdFTP1.Host:= IntToStr(A) + '.' + IntToStr(B) + '.' + IntToStr(C) + '.' + IntToStr(D);	
 IdFTP1.Username:=UserIDEdit.Text;	
 IdFTP1.Password:=PasswordEdit.Text;	
 IdFTP1.Connect;	
 if  IdFTP1.Connected then	
 Memo1.Lines.Add(IntToStr(A) + '.' + IntToStr(B) + '.' + IntToStr(C) + '.' + IntToStr(D) + 'открыт для анонимного доступа');	
 IdFTP1.Disconnect;	
  end;	
 end;	
end.	

P.S. За глупости в коде, если они присутствуют сильно не ругайте, это моя первая прога