Editin tepki vermemesi

[dilo]

Selam.

Edite parasal değer girildiğinde şartlar eşit olduğunda otomatik olarak noktalama işlemlerini yaptırmak istiyorum; Fakat VCL de olduğu gibi Firemonkey de bu kadar kolay olmuyor maalesef.

Change ve ChangeTracking ve bir çok yöntem denedim fakat istediğim sonucu alamadım edit işlem yapılıyorsa o edit hiçbir şekilde color dahil değişikliği izin vermiyor, bunun için ne yapabilirim?

function TForm2.NoktalamaEkle(StrNoktalama: String): String;
var
  Birler, Onlar: String;
begin
  if Length(StrNoktalama) = 4 then
  begin
    Birler := Copy(StrNoktalama, 1, 1);
    Onlar := Copy(StrNoktalama, 2, 4);
    Form2.Caption := Birler + '.' + Onlar; // Caption sorun yok işlem yapılıyor.
    Result := Birler + '.' + Onlar;
  end;
end;

procedure TForm2.EditAlisChange(Sender: TObject);
begin
  NoktalamaEkle(EditAlis.Text);
end;

procedure TForm2.EditAlisChangeTracking(Sender: TObject);
begin
  NoktalamaEkle(EditAlis.Text);
end;