[fofka]

Я из этого примера исходил.

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
var
  line:  Shortint;
  value: Shortint;
  valid: Boolean;
  buffer: string;
  CRbyte: Shortint;
  LFbyte: Shortint;
  NumberWritten : DWORD; 
begin
  line  := StrToInt(Edit2.Text);
  value := StrToInt(Edit3.Text);
  valid := TRUE;

if ((line > 24) or (line < 1)) then
begin
  MessageDlg('Invalid Line Number', mtError, [mbOK], 0);
  valid := FALSE;
end;

if ((value > 1) or (value < 0)) then
begin
  MessageDlg('Invalid Value', mtError, [mbOK], 0);
  valid := FALSE;
end;

if (valid = TRUE) then
begin
  CRbyte := 13; // HEX 0x0D
  LFbyte := 10; // HEX 0x0A
  buffer := '$KE,WR,' + Edit2.Text + ',' + Edit3.Text + Char(CRbyte) +
            Char(LFbyte);
  WriteFile(CommHandle, PChar(buffer)^, Length(buffer), NumberWritten, nil);  
end;    
end; 


Хотя конечно ни к месту. Это к USB подключается, и определяется как СОМ. В вопросе ссылка есть. А хочется разобраться.