Überprüfen auf Zahl

[Sharky]

Hier mal ein kleines Beispiel:
[code=delphi]
procedure TForm1.btn_TestClick(Sender: TObject);
var
s: string;
zahl: real;
code: integer;
begin
s := edt_Edit1.Text;
Val(s, zahl, code);
if (code > 0) then
begin
ShowMessageFmt('An Position %d des Strings ' + #10 +
'ist ein Fehler beim konvertieren aufgetreten',

Code:

);
  end;
end;