Код:
"поправка"
var
n1,b,c: integer;
begin
mess:=copy(mess,2,length(mess));
n1:=pos(' ',mess);
b:=strTOfloat(copy(mess,1,n1-1));
c:=strTOfloat(copy(mess,n1+1,length(mess)-1));
SetCursorPos(b,c);
выдает ошибку в b:=strTOfloat(copy(mess,1,n1-1));
c:=strTOfloat(copy(mess,n1+1,length(mess)-1));
; incompatible types: 'Integer' and 'Extended'