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;