function isnum(str:string):boolean; var i:integer; begin for i:=1 to length(str) do if not (str[i] in ['0'..'9','.','-',':']) then begin result:=false; exit; end; result:=true; end;