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