Hallo.
die Laufvariable für deine Schleife muss in deiner Delphi Version im gleichen Block deklariert sein, in dem sich auch die Schleife befindet:
Delphi-Quellcode:
procedure AddCleanLine;
var
i: Integer;
begin
for i := Length(a) downto 1 do
if Pos(a[i], Edit2.text) > 0 then
Delete(a, i, 1);
RichEdit1.Lines.Add(a);
end;
Grüße vom marabu