Frage zu erstellen einer for-Schleife

[Jerry]

mmmm sorry der will net...

Delphi-Quellcode:

procedure Trpt_eVVPrint.MemoKunde3Print(Sender: TObject);
var
  i : integer;
begin
  for i := 1 to 7 do
    begin
      if Findcomponent('pp_KontoInhaberZ' + intToStr(i) as TppField).AsString <> '' then
      begin
        MemoKunde3.Text := MemoKunde3.Text + Findcomponent('pp_KontoInhaberZ' + intToStr(i) as TppField).AsString + #10;
      end;
    end;
end;