procedure Tload_f.FormCreate(Sender: TObject);
begin
if dm.adoconnection1.Connected=false then
dm.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.ExeName)+'/hosp.mdb;Persist Security Info=False';
end;