несколько записей в базе

[4321]

Всем привет! как сделать так чтоб при добавлении записи в базу она добавляла несколько одинаковых записей (столько сколько я укажу)
а сохроняю я так

var
i:Integer;
begin
for i:=0 to 20 do
begin
if DataModule3.headdatabase.Modified then
DataModule3.headdatabase.Post;
Close;
ProgressBar1.Position:=ProgressBar1.Position+5;
Sleep(15); 
end;
ProgressBar1.Position:=0;
end;

помогите пожалуйста!!!

[evg_m]

Append;
Post;
Append;
Post;
Append;
Post;