Ayuda con procedimientos

[RedVenom]

Estoy haciendo un programa para con vertir numeros de hexadecimal a decimal y estoy haciendo lo siguiente:

implementation
{$R *.dfm}
function BaseNADec(num : string; n : byte) : integer;
var
i : integer;
aux : string;
begin
// Solo hasta la 'o' = como máximo base 20... suficiente ¿no?
aux:='0123456789ABCDEF';
result:=0;
for i:=1 to length(num) do result:=result*n+pos(upcase(num[i]),aux)-1;
end;

// De base 16 (hexadecimal) a base 10 (decimal)
function HexADec(num : string) : integer;
begin
result:=BaseNADec(num,16);
end;



procedure TForm1.Button1Click(Sender: TObject);
var
x : integer;
v : string;
begin
x:=256;
v := HexADec(x);
edit2.Text := v;
end;

end.

Pero no lo puedo ejecutar porque me dice que son inconpatible integer con string ayudenme por favor a encontrar el error por favor ya que soy novato en esto.

Gracias.