Dlls benutzen

[mimi]

Könntes du mir ein kleines beispiel geben ?
ich habe das jetzt so:

Delphi-Quellcode:

procedure GibtNachricht_Aus1(Str:Pchar); external 'myStringListDll.dll' index 1;

type
  TTest = class
  private
  public
    procedure GibtNachricht_Aus(str:Pchar);
  end;


procedure TTest.GibtNachricht_Aus;
begin
  ShowMessage(Str);
end;

var
  t:TTest;
begin
  t:=TTest.create;
  t.GibtNachricht_Aus('test');

end.

exports
  GibtNachricht_Aus;

jetzt kommt Test gleich beim starten der anwendung ist ja auch klar warum. aber ich möchte gerine das gibtNachricht_Aus erst aufgerufen wird wenn ich den Button drücke die klasse soll schon vohrer installisiert werden. wenn .ich dann auf den button drücke kommt nur die meldung: Fehler.