Код:
procedure TForm7.BitBtn2Click(Sender: TObject);
begin
if ADOTable1.Modified then
ADOTable1.Post;
end;
procedure TForm7.BitBtn3Click(Sender: TObject);
begin
ADOTable1.Delete;
end;
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
Form7.Close();
end;
procedure TForm7.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[0].Text := FormatDateTime('dd.mm.yyyy',now);
end;
end.
Не увидела что не вошел кусочек.