Tmem con una sola coma

[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