Edit1.Text:= Copy(Edit1.Text, Pos(',', Edit1.Text)+1, Length(Edit1.Text));
Я не понял Вашего вопроса, но всё же Вам на него отвечу!
