var i,j,n:integer; s:string; s:='(1,23)'; n:=pos(',',s); i:=StrToInt(copy(s,2,n-2)); j:=StrToInt(copy(s,n+1,length(s)-n-1));
var zb:string; i,j:integer; begin zb:='(1,23)'; i:=strtoint(copy(zb,2,pos(',',zb)-2)); j:=strtoint(copy(zb,pos(',',zb)+1,pos(')',zb)-pos(',',zb)-1)); //Showmessage(inttostr(i)+'.'+inttostr(j));
s:string; s:='(1,23)';
n:=pos(',',s);
i:=StrToInt(copy(s,2,n-2));
j:=StrToInt(copy(s,n+1,length(s)-n-1));
zb:string;
i,j:integer;
begin
zb:='(1,23)';
i:=strtoint(copy(zb,2,pos(',',zb)-2));
j:=strtoint(copy(zb,pos(',',zb)+1,pos(')',zb)-pos(',',zb)-1));
//Showmessage(inttostr(i)+'.'+inttostr(j));