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:
Código:
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