[AlejandroIT]

Tengo este codigo en el boton iniciar. Funciona pero no se si esta lo suficientemente completo y otra duda que tengo es en el manejo de excepciones.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  DataModule1.FDConnection1.Open(Edit1.Text,Edit2.Text);
  try
    if DataModule1.FDConnection1.Connected then
    begin
      ShowMessage('Bienvenido.');
      Form1.DestroyWindowHandle;
      Form3 := TForm3.Create(Self);
      Form3.ShowModal;
    end;
  except
    on E:Exception do
    begin
      ShowMessage('Error');
    end;
  end;
end;