[Delpho]

Holaa chavales/as!!
Aqui estoy intentando pasar un formulario (TForm) como parametro para un procedimiento.
procedimiento:

procedure Vaciar(Grid:TStringGrid;progreso:TProgressBar;texto:TEdit;form:TForm);
begin
 for i := 0 to form.Grid.RowCount - 1 do begin
     form.Grid.Rows[i].Clear;
 end;
 form.progreso.Position:=0;
 form.progreso.Refresh;
 form.texto.Text:='';
end;

llamada:

procedure TForm1.Sala72Click(Sender: TObject);
begin
 for i := 0 to Form8.StringGrid1.RowCount - 1 do begin
     Form8.StringGrid1.Rows[i].Clear;
 end;
 Form8.ProgressBar1.Position:=0;
 Form8.ProgressBar1.Refresh;
 Form8.Edit1.Text:='';
end;

procedure TForm1.Sala82Click(Sender: TObject);
begin
 //for i := 0 to Form9.StringGrid1.RowCount - 1 do begin
 //    Form9.StringGrid1.Rows[i].Clear;
 //end;
 //Form9.ProgressBar1.Position:=0;
 //Form9.ProgressBar1.Refresh;
 //Form9.Edit1.Text:='';
 Vaciar(StringGrid1,ProgressBar1,Edit1,F9);
end;

El caso es que tengo varios formularios, y cuando en el formulario principal clickeo en vaciar sala 1, vaciar sala2, etc se tienen que ejecutar esas acciones, pero para no repetir mucho codigo pues quiero hacer un procedimiento.
Aver si alguien me puede echar una mano para llamarla, y en caso de que no se pueda, como se podria hacer
Muchas Gracias!!