[x128]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c: integer;
begin
  a:=0; b:=0; c:=0;
  TryStrToInt(Edit1.Text, a);
  TryStrToInt(Edit2.Text, b);
  c:=a*b;
  Edit3.Text:=IntToHex(c, 4);
  Label1.Caption:=IntToStr(c);
end;

scr.png