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?