FireBird + Delphi

IBDatabase1.DatabaseName:= '10.54.251.100:C:\SSA\SKD\codos_db\CODOS.GDB';
//IBDatabase1.DatabaseName:=Edit4.Text;
IBDatabase1.Params.Add('user_name=SYSDBA');
//IBDatabase1.Params.Add(Edit5.Text);
IBDatabase1.Params.Add('password=masterkey');
//IBDatabase1.Params.Add(Edit6.Text);
IBDatabase1.Params.Add('lc_ctype=win1251');
IBDatabase1.DefaultTransaction:= IBTransaction1;
IBDatabase1.LoginPrompt:= False;
IBDatabase1.Connected:= True;
//IBTransaction
IBTransaction1.Active:= True;
IBTransaction1.DefaultDatabase:= IBDatabase1;
//IBQuery
IBQuery1.Database:= IBDatabase1;
IBQuery1.Transaction:= IBTransaction1;
IBQuery1.Active:= True;
//DataSource
DataSource1.DataSet:= IBQuery1;
//DBGrid
DBGrid1.DataSource:= DataSource1;
DBGrid1.ReadOnly:= True; //Только чтение

IBDatabase1.Close
IBDatabase1.DatabaseName:= '10.54.251.100:C:\SSA\SKD\codos_db\CODOS.GDB';
IBDatabase1.Params.Add('user_name=SYSDBA');
IBDatabase1.Params.Add('password=masterkey');
IBDatabase1.Params.Add('lc_ctype=win1251');
.........