아래와 같이 하시기 바랍니다..

From 류..

---------

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Database1.Close;
  Database1.Params.Values['USER NAME']:= Edit1.Text;
  Database1.Params.Values['PASSWORD=']:= Edit2.Text;
  Database1.Open;
end;

end.