inputquery de basılan tuş

[aydogan46]

Merhabalar;
Inputquery ile veritabanında bulunan bir alan için sayısal değer almam gerekiyor. Kullanıcı rakam veya iptal tuşuna bastıgında problem yok bunu kontrol edebiliyorum ama string bir değere bastıgında bunu kontol edemiyoru. şöyle bir kod yazdım ama kontrol edememdim. yardım ederseniz teşekkür ederim.
procedure TForm1.Button2Click(Sender: TObject);
var
key:char;
takim:string;
tus:boolean;
begin
tus:=inputquery('Bilgi Girişi','Mesajınız', takim);
if tus=false then
exit ;
if not (key in ['0'..'9',#8]) then
label27.Caption:='harfe bastın'
else
label27.caption:='Rakama Bastın';
end;


end

[conari]

Sanırım "isnumeric" buradada işe yarayacak, bir kaç gün önce konuşuldu.

[aydogan46]

kardeş teşekkür ederim. ben isnumeric değil de isinteger diye düşünüyordum o da hep hata veriyordu. isnumeric kelimesini hatırlatman yeterli oldu. teşekkürler