AlphaBlendValue und TrackBar

[mOzZzI]

Hai,
ich möchte, wenn man mit einer TrackBar die Transparenz der Form auswählt, einen MessageDialog schreiben, in dem gefragt wird, wenn bei der TrackBar die AlphaBlendValue auf 0% ist, ob man die Form unsichtbar lassen will. Wenn das Statement YES ist soll die Form geschlossen werden, wenn NEIN das Statement ist soll der MessageDialog verschwinden...
Das hab ich bis jetzt hingebracht,

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
 var i: Integer;
  begin
    for i:= 1 to 255 do begin
    if TrackBar1.Position= i then Form4.Close;
    if TrackBar1.Position=0 then if (MessageDlg('Wollen Sie das Programm wirklich unsichtbar machen?', mtWarning, [mbYes, mbNo], 0) in [mrYes, mrNone]) then Form4.Close;
  end;
 end;

Was passt hier dran nicht??