[uberchel]

Сообщение от san-46

Тип переменной b1 должен быть DWORD.

Не DWORD а Cardinal !

пишется так:

Код:

procedure TForm1.Button5Click(Sender: TObject);
var d,d1: cardinal;
begin
Buffer[1]:=0;
Buffer[2]:=2;
b:= 1;
WriteFile(hPort,Buffer,b,b1,nil);
end;