Delphi-Quellcode:
if (Ord(s[1])<=48) and (Ord(s[1])<=57) then
begin
if pos(s,'http=') < 0 then
Prüf nochmal deine Bedingung. Das ist irgendwie quatsch.
Wenn das kleiner als 48 ist, dann ist es auch kleiner als 57.
Du kannst die vordere Hälfte weglassen, bzw. nochmal prüfen, was du da eigenltich machen wolltest.