Right. so we have initialized the unit, and now its time to make them motors spin.

Step 2 : SetMotors
To do this we need to talk to the SetMotors function in the DLL, so once again we need a new custom type to tell Delphi what arguments the dll is expecting.

TInitMotorBee = function():Boolean ;stdcall;
TSetMotors = function(b1,b2,b3,b4,b5,b6,b7,b8,b9 : Integer) : Boolean;stdcall;

procedure SetMot(b1,b2,b3,b4,b5,b6,b7,b8,b9:Integer);
var
  Handle:           THandle;
  SetMotors:      TSetMotors;
  i : boolean;
 begin
 Handle := LoadLibrary('mtb.DLL');
 if Handle <> 0 then begin
     @SetMotors := GetProcAddress(Handle, 'SetMotors');
     if @SetMotors <> nil then begin
       i := SetMotors(b1,b2,b3,b4,b5,b6,b7,b8,b9);
       if i then Form1.Memo1.Lines.Add('Setmotors succeeded');
       //Form1.Memo1.Lines.Add(IntToStr());
     end else
       Form1.Memo1.Lines.Add('Could not find setmotors proc address');
 end Else Form1.Memo1.Lines.Add('Could not load DLL');
end;

procedure TForm1.ChangeMotors;
begin
 setMot(
         0,0,
         Integer(Form1.CheckBox1.Checked),Form1.TrackBar1.Position,
         Integer(Form1.CheckBox2.Checked),Form1.TrackBar2.Position,
         0,0,
         0
       );
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 changemotors;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 changemotors;
end;