[NIch]

Подправь функцию под себя и пользуйся на здоровье...

Код:

// функция фильтрации ввода
function FiltrInputFigures(Edit: TEdit; Key: Char): Char;
var
  vr_Pos, vrPos, vrLength, vrSelStart: byte;
const
  I: byte = 1;
begin
  with Edit do
  begin
    vrLength := Length(Text); // определяем длину текста
    vrPos := Pos(',', Text); // проверяем наличие запятой
    vr_Pos := Pos('.', Text); // проверяем наличие запятой
    vrSelStart := SelStart; // определяем положение курсора
  end;
  Result := Key;
  Case Key of
    '0' .. '9': // если нажата цифра
      begin
        if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
          Result := #0; // "погасить" клавишу
      end;
    ',', '.': // если нажата точка или запятая
      begin
        if (vr_Pos > 0) or (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0)
          then
          Result := #0 // "погасить" клавишу
        else
          Result := DecimalSeparator; // всегда заменять точку на запятую
      end;
    #8:
      ; // позволить удаление знаков клавишей 'Back Space'
  else
    Result { Key } := #0; // "погасить" все остальные клавиши
  end;
end;

Работает на KeyPress и в TEdit...
Не позвоялет вводить недопустимые символы, ставить несколько запятых, ставить запятую не в том месте, меняет запятую на точку или наоборот