[lmikle]

Код:

var
  I : Integer;
begin
  For I := 0 To ComponentCount-1 Do
    If Components[i] Is TEdit Then
      (Components[i] As TEdit).Text := '';
end;