procedure TDM.EDBSession1RemoteReconnect(Sender: TObject; var Continue, 
StopAsking: Boolean);
begin
  if MsgConfirmar2('The connection to the server is lost.'#13'Do you 
want to try a reconnect?')=mrYes then
  begin
    Continue:= true;
    StopAsking:=false;
  end
  else
  begin
    Continue:= false;
    StopAsking:=true;
  end;
end;