1 button mehrere befehle nacheinander

[Hereafter]

hi leute

bin wie gesagt noch n blutiger anfänger und deshalb sry dass ich euch mit solchen fragen nerven muss(wird vermutlich öfter vorkommen weil unserer lehrer net erklären kann ).

naja hab folgende kleines problem(die ergebniss zur suche hier im forum betrugen immer ca.500-3000^^):
ich wollte einem button beim ersten klicken eine funktion zuweisen(einen anderen text anzeigen).hat geklappt , läuft prima.
nun soll bei einem 2. klicken der text stehen bleiben und ein externes programm ausgeführt werden(wie das geht weiss ich).
aber ich weiß net wie ich den 2. befehl einfügen soll.

könnt euch den code ja mal anschauen.ich benutze delphi 2005 personal.

würde mich über antwrten sehr freuen.
thx im vorraus

mfg Hereafter

code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);

    private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Visible:=false;
memo2.Visible:=true;

winexec('C:\WINDOWS\explorer.exe', SW_SHOWNORMAL);
end;
end.