初学者级有关问题（高分赠送）

菜鸟级问题（高分赠送）
A=1000 
我想得到A的60%后 保存在B里 B是integer类型

[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
A,B:integer;
begin
A:=1000;
B:=Round(A*0.6);
showmessage(inttostr(B));
end;
[解决办法]
procedure TForm1.Button1Click(Sender: TObject); 
var 
A,B:integer;
C:double; 
begin 
A:=1000;
C:=strtodouble(edit1.text); 
B:=Round(A*C); 
showmessage(inttostr(B)); 
end;