По нажатию на N3Click не сразу очищает поля на форме

[Droid]

procedure TDM.N3Click(Sender: TObject);
begin
FD_PAC.ShowModal;
FD_PAC.Caption:='Добавление записи';
FD_PAc.DBEdit1.Clear;
FD_PAc.DBEdit2.Clear;
FD_PAc.DBEdit3.Clear;
FD_PAc.DBEdit4.Clear;
FD_PAc.DBEdit5.Clear;
FD_PAc.DBEdit6.Clear;
FD_PAc.DBEdit7.Clear;
FD_PAc.DBEdit8.Clear;
FD_PAC.DBMemo1.Clear;
end;

Почему по нажатию на кнопку N3Click он с 1 раза не очищает компоненты а только со 2-ого ? Может как нибудь еще можно сделать, чтоб с 1-ого раза очищал ?

FD_PAC.Caption:='Добавление записи';
FD_PAC.DBEdit1.Clear;
FD_PAC.DBEdit2.Clear;
FD_PAC.DBEdit3.Clear;
FD_PAC.DBEdit4.Clear;
FD_PAC.DBEdit5.Clear;
FD_PAC.DBEdit6.Clear;
FD_PAC.DBEdit7.Clear;
FD_PAC.DBEdit8.Clear;
FD_PAC.DBMemo1.Clear;
FD_PAC.ShowModal;

Так пробовал тоже, он Edit1-не очищает, а все остальное очищает.

[uberchel]

Вот так работает:

with FD_PAC do begin
Caption:='Добавление записи';
DBEdit1.Clear;
DBEdit2.Clear;
DBEdit3.Clear;
DBEdit4.Clear;
DBEdit5.Clear;
DBEdit6.Clear;
DBEdit7.Clear;
DBEdit8.Clear;
DBMemo1.Clear;
ShowModal;
end;

Помог ? если да, то нажмите на весы слева =)

[Droid]

Сообщение от uberchel

Вот так работает:

with FD_PAC do begin
Caption:='Добавление записи';
DBEdit1.Clear;
DBEdit2.Clear;
DBEdit3.Clear;
DBEdit4.Clear;
DBEdit5.Clear;
DBEdit6.Clear;
DBEdit7.Clear;
DBEdit8.Clear;
DBMemo1.Clear;
ShowModal;
end;

Помог ? если да, то нажмите на весы слева =)

То же самое не помогло

[Yurk@]

а ты вызви ...

procedure TDM.N3Click(Sender: TObject);
begin
FD_PAC.DBTable1.Clear;
FD_PAC.Caption:='Добавление записи';
FD_PAC.ShowModal;
end;

... и очисти всё сразу.