🚀 go-pugleaf

Witam,
Temat jest w zasadzie kontynuacją innego wątka(Raspberry/Lazarus/FTDI), ale żeby zbytnio nie mieszać postanowiłem problem opisać w odrębnym wątku. Otóż zgodnie z Waszymi sugestiami pojąłem próbę dynamicznego ładowania dll'ki FTDI. Na formie jest położony Button i Label. Cały kod wygląda tak:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
 
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FT_HANDLE:DWord=0;
  ftresult:integer;
  DLL_Handle:THandle;
  FT_Open_Func:function(PVDevice:Integer; ftHandle:Pointer):integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
DLL_Handle:=LoadLibrary('ftd2xx.dll');
@FT_Open_Func:=GetProcAddress(DLL_Handle,'FT_Open');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ftresult:=FT_Open_Func(0,@FT_HANDLE);
Label1.Caption:=IntToStr(ftresult);
end;

end.

No i teraz tak (zarówno D6 jak i Lazarus):

1) Po Button1Click wyskakuje błąd(D6):"Project1.exe faulted with message:'access violation at 0x000312d5: write of address 0x10c00000'.Process stopped.Use Step or Run to continue"

2) Jeżeli "zakomentarzuję" w Button1Click tylko wywołanie funkcji FT_Open_Func, to jest OK, wartość Label1 zmienia się na '0'.

3) Jeżeli "zakomentarzuję" w Button1Click tylko Label1.Caption....., to też jest OK, ale oczywiście Label1.Caption pozostaje bez zmian.

4) Zamiast Label1, położyłem na formie TrackBar i robiłem experyment TrackBar1.Position:=IntToStr(ftresult). Wówczas program normalnie przechodzi.

5) Inna sprawa, że wykonanie funkcji FT_Open jest błędne. Przy podłączonym urządzeniu FTDI do komputera, powinno mi zwrócić wartość 0, tymczasem zwraca 2.

Co robię źle? Bardzo proszę o wskazówki.