Курсовая работа: Базы данных. Создание программы Телефонный справочник

finally

FreeAndNil(OldFile);

end;

end;

procedure DataThread.UpdateForm;

begin

with MainFOrm do

begin

Image1.Visible := false;

ProgressBar1.Visible := true;

LbPersent.Visible := true;

lbMessage.Visible := true;

end;

end;

end.