Fórum Só uma vírgula #351437

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (pos(´,´, edit1.Text) > 0) then
     showmessage(´Já existe uma vírgula no edit1.text, na ´ +
                 ´posição ´+inttostr(pos(´,´, edit1.text))+´.´)
  else
     showmessage(´No componente Edit1 não tem vírgula.´);               
end;