Leeren sämtlicher Editfelder mit einer Schleife???

[Andreas L.]

Machs halt gleich so:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
end;