>>422
たびたびありがとうございます。
教えて頂いた方法は○でしたが、でも欲しい所で×でした。
ちょっと長くなりますが、そのまま貼ります。

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
i: Integer;
SaveAnswer: Word;
begin
if Table1.Active = True then
for i :=0 to Table1.Database.DataSetCount - 1 do
if Table1.Database.DataSets[i].State in [dsEdit, dsInsert] then
begin
SaveAnswer := MessageDlg('内容が変更されています。保存しますか？',
mtConfirmation, [mbYes, mbNo, mbCancel], 0);
if SaveAnswer = mrYes then
begin
Table1.Database.DataSets[i].Post;
CanClose := True;
end
else if SaveAnswer = mrNo then
CanClose := True
else
begin
CanClose := False;
Exit;
end
end
else
Exit;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
FormCloseQuery(Sender);
end;

やはり「実パラメータが足りません」とエラーが出ます。
ホントに厨房ですみません・・・