Daten Schleife schneller machen

[robby3]

Hei ich brauche eure Hilfe
kann mir jemand einen Tipp geben wie ich meine Routine schneller machen kann.
Ich möchte in einer Datenbank den Inhalt Lagerb von Stueck abziehen.
Hier mein Code

Delphi-Quellcode:

procedure TWAusgang.Button6Click(Sender: TObject);
begin
if  Data.TableStueckliste.active= false then exit;
try
i2:= StrToInt(edit1.text);
except
Showmessage('Keine gültige Zahl im Textfeld!');
exit;
end;
for i1:= 1 to i2 do
begin

Data.tableLager.indexname:='pos';
 data.tableCopy.active:=true;    
Data.TableStueckliste.first;
Data.TableCopy.first; 
 
while not Data.tableCopy.Eof do begin
Data.TableCopy.edit;
 Data.TableCopy.fieldByName('lagerb').AsInteger :=
  Data.TableCopy.fieldByName('lagerb').AsInteger-
  Data.TableCopy.fieldByName('stueck').AsInteger;
  Data.TableCopy.post;

  Data.TableCopy.next;

   end; 
end;