Edit1.text --> 1 durch Variable ersetzen?

[mkinzler]

Kannst du nur durch die Methode FindComponent() der Formklasse bewerkstelligen.
z.B.

Delphi-Quellcode:

for i := 1 to 6 do
  begin
  info := table1.FieldByName(datei).AsString;
  table1.next;
  KompName := 'Edit'+IntToStr( i);
  (Form1.FindComponent( KompName) as TEdit).Text := Info;
  end;