Inhalt von Edit

[Luckie]

So geht's:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 1 to 3 {Anzahl Edits} do
  begin
    with TEdit(FindComponent('Edit'+IntToStr(i))) do
    begin
      if Text = '' then ShowMessage('Edit'+IntToStr(i)+' ist leer');
    end;
  end;
end;

Vorrausgesetz die Edits heißen Edit1, Edit2, Edit3.