Ventana user y password

[el_barto]

Gracias tu ayuda es valiosisima, estas en lo cierto ahora si me deja poner en true mis objetos y no me afecto mi combobox mi mi grid pero ahora el puñetero programa me saca error en mi unit 2 precisamente cuando el boton conectar entra en funcion

procedure TForm2.Button1Click(Sender: TObject);
begin
DataModule.IBDatabase1.Params.Values['USER_NAME'] := Edit1.Text;
DataModule.IBDatabase1.Params.Values['PASSWORD'] := Edit2.Text;
try
DataModule.IBDatabase1.Open;
except
MessageDlg ('Error en el ingreso', mtwarning,[mbyes,mbno],0);
if DataModule.IBDatabase1.Connected then
begin
ModalResult := mrOk;
end;
end;
end.

[Error] Unit2.pas(46): ';' expected but '.' found
[Error] Unit2.pas(55): Declaration expected but end of file found
[Fatal Error] mejorproycombo.dpr(9): Could not compile used unit 'Unit2.pas'