TForm como parametro

[Neftali [Germán.Estévez]]

Si pasas el form ya no te hace falta pasar el Grid y el progreso y viceversa.

Código Delphi [-]
procedure Vaciar(AGrid:TStringGrid; AProgreso:TProgressBar; ATexto:TEdit);
begin
 for i := 0 to AGrid.RowCount - 1 do begin
     AGrid.Rows[i].Clear;
 end;
 AProgreso.Position:=0;
 AProgreso.Refresh;
 ATexto.Text:='';
end;

Ahora sólo tienes que llamarlo desde cada form y pasarle como parámetro el Grid y el Progreso.

¿Qué problema hay?