СТАВИМ 1 ЗАПЯТУЮ
procedure TForm1.Button16Click(Sender: TObject);
begin
s:=Edit1.Text; Строковой переменной S присваиваем значение свойства Текст компонента Эдит1
if pos(',',s)=0 then если позиция запятой в строке S=0 тогда
Edit1.Text:=Edit1.Text+','; добавляем к значению текст ‘,’ зяпятую
end;