function für mehrere Units?

[Nuclear-Ping]

Wie wäre es mit einer Funktion, der ihr das StringGrid übergebt?

Delphi-Quellcode:

procedure ProcessGrid (Grid: TStringGrid; ActionId: Integer);
begin
  case ActionId of
    1: AddSomething (Grid);
    2: DeleteSomething (Grid);
    // ...
   end;
end;