val函数的使用

以下是自己用程序证明的，有不对的请指出

procedure TForm1.FormCreate(Sender: TObject);
var
  a,b,c:string;
  x,y:Integer;
begin
{a这里为原始字符串或者变量名
x为这里val处理，只能接受数字部分，不是数字的部分删除掉
y是一个判断量第多少位，包含确定的位置不是数字部分}

  a:='13433abc';
  Val(a,x,y);
  ShowMessage(IntToStr(x));
  showmessage(IntToStr(y));
end;