dll in Delphi verwenden

[MorrisF]

Folgende Version verursacht keine Fehler mehr:

Delphi-Quellcode:

unit D_Scannen;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

const
  //DLL´s
  ct_nativeDLL = '98x_API.dll';

type
  TDialog_Scannen = class(TForm)
  
  FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Dialog_Scannen: TDialog_Scannen;

  Error: DWORD;

  //DLL Methoden
  function Init(Attempts, Timeout: DWORD; Error: LPDWORD): BOOL;
    stdcall; external ct_nativeDLL name 'Scanner98x_Init';

implementation

{$R *.dfm}


procedure TDialog_Scannen.FormCreate(Sender: TObject);
begin
  try
    Init(1, 1000, @Error);
  except
    on e: Exception do
    begin
      ShowMessage('Fehler in FormCreate(): ' + e.Message);
    end;
  end;
end;

end.

Allerdings habe ich nun das Selbe Problem, wie vorher mit anderen Methoden aus der dll(ich habe auch da das "@Error" beim Aufruf eingefügt).
Aber bis hier hin: Danke an alle, die geholfen haben!!!
Ich denke ich werde es jetzt hinbekommen.