zabezpieczenie przed znakiem nie bedacym liczba

witam...

musze dopisac procedure w ktora zabezpiecza program przed wpisaniem znaku nie bedacego liczba

dla procedury

procedure TFormularz.btnWprowadzAClick(Sender: TObject);
begin
WprowadzMacierz(A,edWA.Value,edSzA.Value);
end; 

wypisywalem juz wiele roznych kodow ale jednak zawsze cos bylo nie tak;/
wiec prosil bym was o jakis prosty zapis ..bo po prostu te kody ktore sam wypisywalem sam do konca nie wiedzialem co robie:p

z gory thx

aha i myslalem zeby zrobic to za pomoca procedury val(... ,... , code) ale i tak tam cos chyba pokrecilem bo nie wiem co tak naprawde musze umiescic w drugiej pozycji;/

Dokładnie można użyć Val, poczytaj sobie opis tej procedury na Val to wszystko będziesz wiedział. Jest też TryStrToInt TryStrToInt albo zablokowanie możliwości wprowadzania znaków do Edita w jego zdarzeniu OnKeyPress:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['0'..'9', #8] = False then
   Key := #0;
end;