[DarkMoth]

День добрый.

Ищу совета знатоков.
Суть этого куска кода в том, что бы попробовать соединиться с серваком при клике в мемо.
И если связь есть, то всё отлично, но если связи нет вся програмулина просто вылетает.
Не могу понять где косяк, в обработчике или сама платформа такая капризная.

Код:

procedure Form.Memo1Click(Sender: TObject);

procedure conn;  //советовали попытку соединения загнать в отдельную процедуру - толку 0
Begin
    idftp1.connect;
    servstat.Text := 'сервер на связи';
    servstat.FontColor := TAlphaColorRec.green;
    send.Enabled := true;
End;

begin
  if idftp1.Connected = false then  //если не на связи
  try                                         //пробуем соединиться
  conn;
  except                                   //не получилось соединиться
//   on E: EConvertError do
    begin
      servstat.FontColor := TAlphaColorRec.Red
    end;
  end
  else                                     //сервак был на связи до клика
  servstat.Text := 'сервер на связи';
  servstat.FontColor := TAlphaColorRec.green;
  send.Enabled := true;
end;

[Alegun]

Посчитайте кол-во begin и end, похоже у них оно не совпадает