lazarus reconnection bug

procedure TMainForm.ConnectItemClick( Sender: TObject );
begin
  if IBConnection.Connected then begin
    if not ( MessageDlg( 'Connection seems established, do you want to reconnect?',
                          mtWarning, mbYesNo, 0 ) = mrYes ) then Exit;
    IBConnection.Close( True );
  end;

  IBConnection.Open();
end;