KUN Extended Editbox!

Jeg har tidligere oprettet dette spørgsmål:
///
Jeg har lavet et program der kan løse 2. gradsligninger i delphi.... sådan set meget simpelt. Programmet crasher bare hvis man indtaster et bogstav i en af felterne til andengradsligningen.....

Hvordan laver jeg et script i delphi der melder fejl til brugeren hvis man har indtastet andet end et tal ind i en editbox???
///

Jeg fik dette script:

var
v,code : Extended;
begin
val(a.Text,v,code);
        if code <> 0 Then
        Begin
        Showmessage('Venligst indtast kun tal');
        a.SetFocus;
        end
        else
        {kode her}
end;

Det virker også udemærket. Den flipper bare også ud hvis jeg skriver decimal-tal, og det var ikke meningen. Hvad gør jeg!?