Saber que letra has borrado

[RyAr]

Hola de nuevo

Siguiendo con mis primeros pasos, estoy desarrollando un edit propio de manera muy novata. Este edit coge numeros decimales (positivos o negativos). Mi ultimo problema a la hora de este desarrollo es que no consigo que cuando borre la coma, me deje volver a meterla hasta que borro todo de nuevo. Mi pregunta es como mirar el caracter que borro, y que si es una coma, poner una variable a 0 para que me active de nuevo el volver a meterla.

Os pego el código que he hecho, teniendo ese fallo y teniendo en cuenta que en esto de Delphi llevo poco más de una semana.


if (centigrados.Text='') then begin
if ( (Key<'0') or (Key>'9') ) and (Key<>#8) and (Key<>#45) then Key:=#0;
end
else begin

if (sw2=1) or (centigrados.Text='-') then begin
if ( (Key<'0') or (Key>'9') ) and (Key<>#8) then Key:=#0; end
else
if ( (Key<'0') or (Key>'9') ) and (Key<>#8) and (Key<>',') then Key:=#0;
end;

if (centigrados.Text='')then
sw2:=0;

if (Key=',') then
sw2:=1;

Espero críticas a la hora de programar, ya que al llevar tan poco tiempo, me gustaría quitarme esos malos hábitos a la hora de programar.

Un saludo

RyAr