Tmem con una sola coma

[baby]

muy buenas
soy novato en eso de delphi y kiero hacer un ejercicio en la cual no se puede insertar mas de una coma en el control del mem aunque despues la primera coma puede haber otros caracteres(numeros,etc,.....)
gracias de antemano compadres
un saludo a todos

[rafita]

Hola,
eso parece sencillo, por ejemplo en el evento ONkeyPressed del campo, busca con un POS el caracter "," dentro del campo, si te devuelve una posición mayor que cero entonces ya hay uno.
En código debe ser algo parecido a esto:

procedure TForm1.Campo1(Sender: TObject; var Key: Char);
begin
  if Pos(Campo1.Text,',')>0 then // ya hay una coma
    key:=#0; // anulo la pulsación
end;

saludos