Импорт кода из С++ в Делфи

procedure Indicator_Test (pos:Char; head, tail: byte);
var
  TRBuf:^array[1..3] of PChar;
  nToWrite:DWord;
  nWrite:DWord;
begin
  TRBuf[1]^:=PChar(pos);
  TRBuf[2]:=PChar(head);
  TRBuf[3]:=PChar(tail);
  nToWrite:=length(TRBuf)+1;
  WriteFile(port,TRBuf^,nToWrite,nWrite,nil);
end;
 
{работа с открытием порта}
 
procedure TTabTester.Indicator_TestClick(Sender: TObject);
 
 
begin
   Indicator_Test(
 
end;

//Использование статического буфера.
procedure Indicator_Test_1(pos:Char; head, tail: byte);
var
  Port : HFILE;
 
  TRBuf : array[1..3] of Char;
  nToWrite:DWord;
  nWrite:DWord;
begin
  //Значение переменной Port определено где-то в другой части кода.
  //Port := ...;
  //...
 
  TRBuf[1] := Char(head);
  TRBuf[2] := pos;
  TRBuf[3] := Char(tail);
  nToWrite := length(TRBuf);
  WriteFile(port, TRBuf, nToWrite, nWrite, nil);
end;
 
//Использование динамического буфера - количество передаваемых байтов - любое.
//aStr содержит последовательность байтов, которые надо передать в порт.
//head, tail - стартовый и стоповый байты.
procedure Indicator_Test_2(aStr : String; head, tail: byte);
var
  Port : HFILE;
 
  StrBuf : String;
  nToWrite:DWord;
  nWrite:DWord;
begin
  //Значение переменной Port определено где-то в другой части кода.
  //Port := ...;
  //...
 
  StrBuf := Char(Head) + aStr + Char(Tail);
  nToWrite := length(StrBuf);
  WriteFile(port, Pointer(StrBuf)^, nToWrite, nWrite, nil);
end;