AlphaBlendValue und TrackBar

[mOzZzI]

Tja, ich möchte ja das er einen Message dialog anzeigt wenn man 0 ausgewählt hat,
aber wenn man irgednwas zwischen 1 bis 255 ausgewählt hat soll sich einfach die Form schließen...

Delphi-Quellcode:

procedure TForm4.TrackBar1Change(Sender: TObject);
  begin
    form1.alphablendvalue:=trackbar1.Position;
  end;
procedure TForm4.Button1Click(Sender: TObject);
  begin
    if TrackBar1.Position=1 then Form4.Close;
    if TrackBar1.Position=2 then Form4.Close;
    if TrackBar1.Position=3 then Form4.Close;
    if TrackBar1.Position=4 then Form4.Close;
    //...das müsste ich dann bis 255 weitermachen...deswegen wollte ich nen Array
    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;