[Soru] "h2wiringpi.pas" ile servo kontrolü

[halil kundakci]

Rapberry pi 3 üzerinden lazarus h2wiringpi.pas kütüphanesi kullanılarak servo motor(sg90) kontrol edilebilir mi?

Şöyle bir örnek yaptım

Kod:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
 ExtCtrls, h2wiringpi;

type

 { TForm1 }

 TForm1 = class(TForm)
   Button1: TButton;

   procedure Button1Click(Sender: TObject);

 private
   { private declarations }
 public
   { public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }



procedure TForm1.Button1Click(Sender: TObject);
begin

 wiringPiSetupGpio;
  pinMode(18, PWM_OUTPUT);
  pwmSetMode(PWM_MODE_MS);
  pwmSetRange(200);
  pwmSetClock(1920);
  pwmWrite(18,150);

end;

end.

Derledi ve çalıştırdı. Ancak program içerisindeki button1'e tıklanınca program sonlanıyor. Servo tepki vermiyor.

Neyi yanlış veya eksik yaptım bilmiyorum?
Servo'yu aynı pinlerde scratch'de denedim, sağlam.
Rapberry pi 3'de h2wiringpi.pas kütüphanesi servo'yu desteklemiyor mu? Kütüphaneyi mi yanlış tanıttım yoksa izinlerle mi alakalı sorun var? Bilemedim.