Funktionsaufruf in mehreren Forms

[KodeZwerg]

Oder ist Deine Frage = "Wie erstelle ich eine Helfer Unit und binde diese ein?"

Delphi-Quellcode:

unit DomPerleHelfer;

interface

uses
// hier trag alles ein was diese Unit für ihre sub-funktionen benötigt.
// ich habe nicht getestet auf welche Units deine MyShowMessage basiert.

function MyShowMessage(const AMessage: string; AFontSize: Integer): Integer;

implementation

function MyShowMessage(const AMessage: string; AFontSize: Integer): Integer;
var
  dlg: TForm;
begin
  dlg := CreateMessageDialog(AMessage, mtInformation, [mbOK]);
  try
    dlg.Position := poScreenCenter;
    dlg.ScaleBy(AFontSize, dlg.Font.Size);
    Result := dlg.ShowModal;
  finally
    dlg.Free;
  end;
end;

end.

Ergänze hier das Uses !
Binde DomPerleHelfer in jeder Unit mit der Uses Anweisung ein wo Du MyShowMessage() brauchst.
Fertig.