Kommastellen löschen

[1nfinity]

ja ist ein string danach wird es zu float

habe das so:
for j := 1 to 1 do
delete (str,1,pos(',',str));

hier kriege ich von den 630,32 die 32 raus
möchte aber die 630