[wladimir_object]

Сообщение от delpi12

я хочу сказать что когда нажимаещ на backspace запяатая не исчезла

Если совсем уж просто, то можно так:
В обработчике события OnKeyPress компонента TEdit укажи:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#8 then begin  // если нажата клавиша BackSpace
    if (Edit1.Text[Edit1.SelStart]=',') or // и удаляемый символ - запятая
       (Pos(',',Edit1.SelText)>0)  // или запятая есть в выделенном фрагменте
    then
    key:=Chr(0);  // то ничего не выполняем
 end;
end;

И выучи русский язык!