procedure TForm1.Button1Click(Sender: TObject);
var
  acceptstr,sendid,str:string;
begin
  acceptstr:='192.168.18.24，dfa';
  sendid:=Leftstr(acceptstr,AnsiPos('，',acceptstr)-1);
  str:=rightstr(acceptstr,length(acceptstr)-AnsiPos('，',acceptstr)-1);
  showmessage(str);
end;