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;