Puntos

[yusnerqui]

Bueno pues este ya borra caracteres.

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 var  A: Char;
      Tex : String;
      I : Shortint;
begin
  A := Key;
  Key := #0;
  Tex := TEdit(Sender).Text;
  Case A of
   #47 .. #58:begin
                  if TEdit(Sender).tag <3 then
                  begin
                    Tex[1]:=Tex[3];
                    Tex[3]:=Tex[4];
                    Tex[4]:=A;
                  end else
                  insert(A,Tex,pos('.',Tex));
                  I:=1;
               end;
    #8:        begin
                  if TEdit(Sender).tag <=3 then
                  begin
                    if A = #8 then A := '0';
                    Tex[4]:=Tex[3];
                    Tex[3]:=Tex[1];
                    Tex[1]:='0';
                  end else
                  Delete(Tex,pos('.',Tex)-1,1);
                  I := -1;
                 end;
   end;
    TEdit(Sender).Text := Tex;
    TEdit(Sender).tag := TEdit(Sender).tag+I;
    if TEdit(Sender).tag <0 then TEdit(Sender).tag :=0;
end;

Espero te sirva.

Un saludo