Frage zu erstellen einer for-Schleife

[Jerry]

so habs nun..

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;

Vielen Dank an alle!