Bedingt Prozedur aufrufen

[CRoSSi]

Moin thx erstemal für euere antworten ich glaube man kommt der Lösung immer näher es gibt nur noch eine stelle wo er rummeckert.. . Und zwar bei if PortOut <> nil then begin da sagt er "nicht genügend wirkliche parameter". Was kann das sein? Habe die Unit von meinem test Prog auch nochmal kopiert:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
type TPortOut = procedure(Port:Word;Data:Byte); stdcall;

var   PortOut: TPortOut = nil;
      AHandle: THandle = 0;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  AHandle := LoadLibrary('io.dll');
  if AHandle <> 0 then begin
    PortOut:= GetProcAddress(AHandle, 'PortOut');
    if PortOut <> nil then begin
      PortOut($378,00);
    end;
    FreeLibrary(AHandle);
  end;
end;

end.

THX schonmal