1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

 begin
 Data.Table.first; 
while Not Data.Table.EOF do  begin

if Data.Table.fieldByName('pos').AsString = Edit14.text then
  data.Table.Active:= true;
Data.Table.edit;
Data.Table.fieldByName('pos').AsString := Edit15.text ;
 Data.Table.post;
Data.Table.next;
end;
      end;
//  Data.TableStueckliste.CancelRange;
   // Data.TableStueckliste.Refresh;
end;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

begin  
  with Data.Table do
  begin
    First;   
    while not EOF do 
    begin
      // da die Tabelle bereits aktiv ist, ist dieser Aufruf überflüssig >data.Table.Active:= true<
      // nur Datensätze ändern, deren Kriterium zutrifft.
      if (FieldByName('pos').AsString=Edit14.Text) then  
      begin
        Edit;  
        FieldByName('pos').AsString:=Edit15.Text;  
        Post;  
      end; // if
      Next;  
    end; // while
  end; / with Data.Table
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm5.Button4Click(Sender: TObject);
begin
  with Data.TableLager do
  begin
   First;
    while not EOF do
    begin
      // nur Datensätze ändern, deren Kriterium zutrifft.
      if (FieldByName('pos').AsString=Edit14.Text) then
        begin
        Edit;
        FieldByName('pos').AsString:=Edit15.Text;
        Post;
      end;
      Next;
    end;
  end;
ShowMessage('Die Änderungen wurden erfolgreich in der Datenbank abgespeichert.');
end;