Ayuda con procedimientos

[marcoszorrilla]

Aquí tienes un truco para pasar un número de Hexadecimal a Decimal.

procedure TForm1.Button1Click(Sender: TObject);
Var
MiHexa:String;
Hexa2Dec:Integer;
begin
MiHexa:='FFFF';
Hexa2Dec:= StrToInt( '$'+MiHexa);
ShowMessage(IntToStr(Hexa2Dec));
end;

Un Saludo.