Değişken Tip Sorunu

[vipaydin]

Pardon özür dilerim ama
parametrenin tipini bilmiyorum ya da
tipten kastınızı anlayamadım.
Belki de bir tip tanımlamam gerekirken tanımlamadım.
Açıklayabilir misiniz?

[Nemesis2005]

procedure TForm1.Button1Click(Sender: TObject);
var kg,cm:integer;
vd,vhn:string;
begin
vd:=MaskEdit63.Text;
vhn:=MaskEdit64.Text;
if maskedit21.Text='' Then Maskedit21.Text := '0';
if Maskedit22.Text='' Then Maskedit22.Text := '0';
kg:=StrToInt(MaskEdit21.Text);
cm:=StrToInt(MaskEdit22.Text);
with Adoquery do
begin
SQL.Text:='INSERT INTO Table1 (VD,VHN,KG,CM) VALUES (:V1,:V2,:V3,:V4)';
Parameters.ParamByName('V1').AsString:=vd;
Parameters.ParamByName('V2').AsString:=vhn;
Parameters.ParamByName('V3').AsInteger:=kg;
Parameters.ParamByName('V4').AsInteger:=cm;
ExecSQL;
end;
end;

procedure TForm1.MaskEdit63Change(Sender: TObject);
begin
if not (key in ['0'..'9',#8]) then
begin
Key:=#0;
Beep;
end;
end;


Tüm maskedit lerin Change olayına yukarıdaki procedure bağla
herhangi bir sorun çıkmaz sanırım