wie ist der Code für folgendes Problem zu schreiben?

[inherited]

Du könntest dir auch ein Array of TEdit basteln und die Edits per Hand erzeugen. Dann kannst du sie direkt in einer Schleife ansprechen (und es ist um einiges effizienter)

Delphi-Quellcode:

var
  MyEdits: Array of TEdit;
...
SetLength(MyEdits,5);
for i := 0 to 4 do //erzeugen
begin
  MyEdits[i] := TEdit.Create(self);
  MyEdits[i].Parent := self;
  MyEdits[i].SetBounds(20, i*50, 100, 100);
end;

...

for i := 0 to 4 do
begin
  if MyEdits[i].Text = '' then
    MyEdits[i].Text := 'We have joy, we have fun, we have Linux on our Sun!';
end;

Ungetestet(tm)