unit initialisieren

[Berni68]

Hallo zusammen,

was fehlt in folgender Lazarus unit:

Delphi-Quellcode:

unit Unit2; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Dialogs;

procedure init;
procedure test;

implementation

procedure test;
begin
  showmessage('Test');
end;
procedure init;
begin
  showmessage('init');
end;

initialization
begin
  init;
end;

end.

sobald ich irgendwas im Bereich initialization ausführe schrabbelt's, besser gesagt, es passiert nichts mehr, das Prog startet nicht mehr.
In delphi würde das gehen. Das Problem ist wohl, dass die unit dialogs zu diesem zeitpunkt
wo init ausgeführt wird noch nicht initialisiert ist. Aber wie kriegt man das hin?