procedure TMAINForm.FormCreate(Sender: TObject);
const
cntstr='Provider=SQLOLEDB.1;Password=%s;Persist Security Info=True;User ID=%s;Initial Catalog=%s;Data Source=%s';
var
Readini:Tinifile;
connectingstr:Widestring;
server,user,password,databases:string;
begin
Readini:=Tinifile.Create(ExtractFileDir(application.ExeName)+'/STOCKTRINK.ini');
server:=Readini.ReadString('connection','server','wang');
user:=ReadIni.ReadString('connection','user','sa');
password:=ReadIni.ReadString('connection','password','1234');
databases:=ReadIni.ReadString('connection','databases','dbfood');
connectingstr:=format(cntstr,[password,user,databases,server]);
ADOConnection.ConnectionString:=connectingstr;
ADOConnection.LoginPrompt:=false;
Readini.Free;
end;