[Alegun]

...Как удалить числа до запятой вместе с самой запятой...

Как же это всё грустно

Код:

Edit1.Text:= Copy(Edit1.Text, 1, Pos(',', Edit1.Text)-1);