Undo & Redo der SynEdit

[City Light]

Halli Hallo

Volgendes Problem: Ich versuche schon seit längerem die UNDO und REDO Funktion in mein Programm ein zubinden. Habe aber ein kleines Problem dabei ...hoffe Ihr könnt mir dabei helfen.

Also so Sieht es bei mir aus...

Delphi-Quellcode:

procedure TForm1.SynEdit1StatusChange(Sender: TObject;
  Changes: TSynStatusChanges);
begin
  if SynEdit1.CanRedo then
    Button3.Enabled := True
  else
    Button3.Enabled := False;

  if SynEdit1.Modified then
  begin
    Button2.Enabled := True;
  end
  else
  begin
    Button2.Enabled := False;
  end;

So weit so gut die beiden Button gehen an wenn was zu Unden oder zu Redo gibt, wenn ich jetzt aber auf ein Button klicken möchte um das ganze ab zu speichern ,soll Button 3 auf False stehen. geht aber nich...

Delphi-Quellcode:

procedure TForm1.speichern1Click(Sender: TObject);
begin
  SynEdit1.Modified := False; //Button2 steht jetzt auf false
end;

Nachtrag: also wenn ich den Inhalt Speichere(der SynEdit) sollen die Beiden Button's auf FALSE stehen