[BlackMonsta]

Здравствуйте, у меня такая вот проблема, как сделать так чтобы с Label текста можно было его использовать как название потока. Ну например :
Форма1

Код:

var
  h1: HSTREAM;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form2.Label1.Caption:= h1;
end;

Форма2

Код:

var
  h1: HSTREAM;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s: AnsiString;
begin
  BASS_Init(-1, 44100, 0, Handle, nil);
 
  s := 'C:\Music\Композиция 1.mp3';
  h1 := BASS_StreamCreateFile(False, Pointer(s), 0, 0, 0);
  if Label1.Caption <> 0 then BASS_ChannelPlay(Label1.Caption, False);
end;

Админ: Пользуемся тегами для оформления кода, иначе последуют санкции!

Ну и вот хочу чтобы Label1(в тексте название потока) использовался как обычный поток как такой BASS_ChannelPlay(h1, False); а надо так BASS_ChannelPlay(Label1.Caption, False);