[Delfino]

Código Delphi [-]
function TextToBuffer(Command: string): TBytes;
  var I: Integer;
      slBuffer: TStringList;
begin
 slBuffer := TStringList.Create;
 try
  slBuffer.Delimiter := ':';
  slBuffer.DelimitedText := Command;
  SetLength(Result, slBuffer.Count);
  for I := 0 to slBuffer.Count - 1 do
    Result[i] := StrToInt('$' + slBuffer[i]);
 finally
  slBuffer.Free;
 end;
end;