DBEdit Zeichen tauschen löschen

[blondervolker]

Hallo,
wollte in einem DBEdit Zeichen löschen und dann zum nächsten Datensatz wechseln.Aber es funktioniert nicht.

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
i : integer;
text: string;
begin
AbsTable1.First;
  ProgressBar1.Max := AbsTable1.RecordCount;
  ProgressBar1.Min := 0;
  ProgressBar1.Position := i+1;
  while not AbsTable1.Eof do
  begin
    DBEdit4.Text:=StringReplace(DBEdit4.Text,'"','',[rfReplaceAll]);
    AbsTable1.Next;
    ProgressBar1.StepIt;
    Application.ProcessMessages;
  end;
end;