Blokada znaku ";" w edit

Witajcie
Wiecie może czy istnieje możliwość zablokowania możliwości wprowadzania znaku ";" do edita?

W zdarzeniu OnKeyPress możesz wrzucić ifa ustawiającego Key na #0, jeśli wykryje, że Key to ';'.

A jest jakaś szansa by zamiast ";" wstawiało ","?

procedure TForm.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ';' then
    Key := ',';
end;

Super :) Dzieki wielkie :)

Może lepiej tak:

procedure TForm.EditKeyPress(Sender:TObject;var Key:Char);
begin
  if (Key='.')or(Key=',') then Key:=DecimalSeparator;
end;

?

W czym takie rozwiązanie jest lepsze?

Jeżeli ten przecinek ma być separatorem dziesiętnym, to należy używać DecimalSeparator a nie przecinka.
Bo separatorem może być też kropka - albo nawet inny znaczek, jeśli użytkownik sobie tak ustawił.