[T-dayne]

Интереснаят у тебя реализация
мб так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to length(str) do
  begin
   if str[i] in['a'..'z','A'..'Z','А'..'Я', 'а'..'я', '.' , decimalseparator] then
    begin
     showmessage('Есть буквы'); abort;
    end;
  end;
end;