Удалять всё,что после запятой

[romanzi]

Мне нужно удалить из label1.caption то,что псоле запятой 9если запятая есть) - как это реализовать?

[Serge_Bliznykov]

if Pos(',', Label1.Caption)>0 then
  Label1.Caption := Copy(Label1.Caption, 1, Pos(',', Label1.Caption)-1);