[icsander]

Сообщение от Yurk@

Код:

procedure procedure1;
begin
if Form1.Label6.Caption<>('') then
  if MessageDlg('Файл не сохранён. Сохранить?',mtConfirmation,[mbYes, mbNo],0)=6
    then Form1.N10Click(nil);
end;

Можно и

Код:

procedure procedure1;
begin
if Form1.Label6.Caption<>('') then
  if MessageDlg('Файл не сохранён. Сохранить?',mtConfirmation,[mbYes, mbNo],0)=6
    then Form1.N10Click(Self);
end;

если в N10Click обрабатывается Sender.