procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
i : integer;
begin
s := edit1.Text;
if not TryStrToInt(s, i) then
begin
ShowMessage('转换失败!');
end else
begin
ShowMessage('转换成功,结果为:' + inttostr(i));
end;

end;