procedure TForm1.bClick(Sender: TObject);
begin
dblook.keyvalue := Null;
q1.First ;//Query de 1 kayda konumlandı
while not q1.Eof do//Query nin sonundamı
begin//Başla
dblook.KeyValue := q1FKODU.AsString ;//Query deki FKODU alanını keyvalueye atadı
bdfoClick(Self);//Buttonu tıkladı
if q1FFAX.Text := '' then//Query nin FFAX numarası alanı boşsa
begin
q1.next;//Bir sonrakine geç
Application.ProcessMessages ;//bekle
end;
q1.next;//bir sonrakine geç
Application.ProcessMessages ;
end;
dblook.KeyValue := Null ;
end;

Bu kodla Fax numaralarının olduğu Query döngüye sokulup Sıradan hepsine Fax çektirilmiş.