Indsætte tekst efter tryk på knap

Hej,

Jeg har et Edit felt og en knap ved siden af.


procedure TForm1.Edit1Example(Sender: TObject);
var Edit1temp : string;
begin
  if Edit1Button.Caption = 'Example' then
    begin
      Edit1temp := Edit1.Text;
      Edit1.Text := 'January 15th, 2010';
      Edit1Button.Caption := 'Example off';
    end
  else if Edit1Button.Caption = 'Example off' then
    begin
      Edit1.Text := Edit1temp;
      Edit1Button.Caption := 'Example';
    end;
end;


----------------------------------------
Formålet med ovenstående kode er følgende.
Man kan skrive noget i feltet, og når man trykker på knappen, når dens caption er 'Example', skal 'January 15th, 2010' komme frem i Edit1 feltet og knappens caption ændres til 'Example off'. Når man trykker på knappen når dens caption er dette, så skal det, man havde skrevet før man trykkede på knappen første gang, indsættes tilbage i Edit1 feltet.

Virker bare ikke med ovenstående kode -- den sætter ikke noget tilbage i feltet - det bliver bare tomt. Det er som om, den ikke gemmer i variablen.