Something like this will do for the 1st and the 2nd number, assumed that they are always separated by an x:
Delphi-Quellcode:
copy(listbox.items.strings[3], 1, pos('x', listbox.items.strings[3])-1);
copy(listbox.items.strings[3], pos('x', listbox.items.strings[3])+1), MAX_INT);