Co robie ?żle ?

chcę żeby z formy2 w form1 w statictext wyciągał taga
oto małe zródło...
procedure TForm2.ListBox1Click(Sender: TObject);
var
mpfile : tfilestream;
buffer : array[1..128]of char;
tag: ttag;

begin
form1.MediaPlayer1.filename := listbox1.Items[listbox1.itemindex];
form1.MediaPlayer1.Open;
form1.timer1.enabled:=true;
form1.vrmediabutton1.enabled := form1.VrMediaButton1.visible;
form1.vrmediabutton2.enabled := form1.VrMediaButton2.visible;
form1.vrmediabutton3.enabled := form1.VrMediaButton3.visible;
form1.vrmediabutton4.enabled := form1.VrMediaButton4.visible;
form1.vrmediabutton5.enabled := form1.VrMediaButton5.visible;
begin
mpfile := tfilestream.Create(listbox1.items, fmopenread);
mpfile.Seek(mpfile.Size - 128, sofrombeginning);
mpfile.Read(buffer, 128);
with tag do
begin
id := copy(buffer, 1, 3);
title := copy(buffer, 4, 30);
artist := copy(buffer, 34, 30)
end;
if tag.id = 'tag' then
begin
form1.statictext4.caption := tag.Artist;
form1.StaticText5.Caption := tag.Title;
begin
form1.scrollbar1.Max := form1.mediaplayer1.length;
form1.vrprogressbar1.maxvalue := form1.mediaplayer1.length;
end;
end;
end;
end;

end.

Nie wiem.
Napisz jaki masz problem, co jest zle z tym kodem, jakie bledy wyskakuja itp. Nie kazdy ma komponent vr... zeby analizowac kod.
:-8

chodzi mi o tą linię
mpfile := tfilestream.Create(listbox1.items, fmopenread);

jak to napisać żeby odczytywał taga z filebox-a z formy2 a wczytywał do formy1 a nie z opendialoga
i wszystko...
a zrodło jest z formy2

chodzi mi o tą linię
mpfile := tfilestream.Create(listbox1.items, fmopenread);

jak to napisać żeby odczytywał taga z filebox-a z formy2 a wczytywał do formy1 a nie z opendialoga
i wszystko...
a zrodło jest z formy2

Przede wszystkim zmien:
if UpperCase(id) = 'TAG' then ......

a przy otwieraniu pliku do stream, upewnij sie czy dostaje prawidlowa, pelna sciezke. Sprawdz dokladnie co jest wprowadzane do LisBox1, czy tam sa pelne nazwy plikow?
U siebie sprawdzilem, i dziala. troche go zmienilem ale to nie stanowi na funkcjonowanie.

[dopisane]
no i nie zapomnil zwolnic pamiec dla mpfile (mpfile.free;).