Error con Sender

[ecfisa]

Hola sac.

Es tál cuál como te han comentado los compañeros. Pero vale aclarar que si usas un procedimiento aislado, deberás enviarle el Parent (form) de los Edits como argumento:

Código Delphi [-]
procedure Limpiar(aForm: TForm);
var
  i: Integer;
begin
  for i:= 0 to aForm.ControlCount-1 do
    if aForm.Controls[i].ClassType = TEdit then
      TEdit(aForm.Controls[i]).Clear;
end;

// Llamada (requiere parámetro)
procedure TForm1.btnLimpiarClick(Sender: TObject);
begin
  Limpiar(Self);
end;

En cambio si lo declaras como método del form no es necesario:

Código Delphi [-]
type
  TForm1 = class(TForm)
  ...
  private
    procedure Limpiar;
  end;
...

procedure TForm1.Limpiar;
var
  i: Integer;
begin
  for i:= 0 to ControlCount-1 do
    if Controls[i].ClassType = TEdit then
      TEdit(Controls[i]).Clear;
end;

// Llamada (el parámetro es innecesario)
procedure TForm1.btnLimpiarClick(Sender: TObject);
begin
  Limpiar;
end;

Saludos