[Михалыч]

1. Установить AlphaBlend формы в True;
2. Max значение TrackBar установить равное 255;
3. Затем в TrackBar1Change прописать код:

Код:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
AlphaBlendValue:=255-TrackBar1.Position;
end;