Semaphore Object funktioniert gar nicht ! wo ist der Fehler?

[stoxx]

Wenn ich folgenden Code compiliere passiert folgendes.
Beim ersten Mal drücken auf Button1 wird das Semaphore createt.
Beim zweiten Mal drücken des Button1 erscheint völlig korrekt die Meldung, dass das Semaphore schon gesetzt ist.
Nun drücke ich auf Button2 um das Semaphore wieder zurückzusetzen.
Wenn ich dann auf Button1 drücke, ist das Semaphore immer noch gesetzt. Wieso ?
Das gleiche auch mit Mutex. Was mach ich falsch ?

Code:

var
  Form1: TForm1;
  hSem : THandle;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 hSem := CreateSemaphore(nil,0,1,PCHAR('TS'));
  if (hSem <> 0) and (GetLastError() = ERROR_ALREADY_EXISTS) then
     MessageDlg('Semaphore gesetzt', mtWarning, [mbOK], 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if hsem <> 0 then releaseSemaphore(hsem,1,nil);
end;