[Alegun]

И с буквами работает

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 b: byte;
 s: string;
begin
 s:= '03c1eb08';
 b:= StrToInt('$' + copy(s,3,4));
 label1.Caption:= Inttostr(b);
end;