Para Birimine Çeviren Kod

Kod:
Para Birimine Çeviren KodProcedure TForm1.Button1Click(Sender:TObject);
Var
I,X : Byte;
STR,STR1 : String;
begin
I := Length(Edit1.Text);
X := I mod 3;
STR := '.';
STR1 := Edit1.Text;
While X <= I Do
Begin
If X <> 0 Then
Begin
Insert(STR,STR1,X+1);
X := X+4;
End
Else
Begin
Insert(STR,STR1,4);
X := 7;
End;
End;
Label1.Caption := STR1;
end;