Procedure Getproperties - Help!, GetProperties Опции

[Артемий]

Помогите!!!!!! Я не понимаю как использовать следующий код

procedure TForm1.GetProperties(FileName: String; var MediaFrames, MediaLength, MediaWidth, MediaHeight: Integer);
begin
MediaPlayer1.FileName := FileName;
MediaPlayer1.Wait := False;
MediaPlayer1.Open;
MediaPlayer1.TimeFormat := tfFrames;
MediaFrames := MediaPlayer1.Length;
MediaPlayer1.TimeFormat := tfMilliseconds;
MediaLength := MediaPlayer1.Length;
MediaPlayer1.DisplayRect := Rect(1, 1, 0, 0);
MediaWidth := MediaPlayer1.DisplayRect.Right;
MediaHeight := MediaPlayer1.DisplayRect.Bottom;
if (MediaWidth <= 0) or (MediaHeight <= 0) then begin
{íåïðàâèëüíûå çíà÷åíèÿ îçíà÷àþò, ÷òî ýòî íå âèäåî-ôàéë}
MediaWidth := 0;
MediaHeight := 0;
end;

Куда его вставлять? В TListView? ПППППЛЛЛЛЛИИИИИИИИИЗЗЗЗЗЗЗЗЗЗЗЗЗ!!!!!!!
MediaPlayer1.Close;
end;

[volvo]

Помести в TMemo:

procedure TForm1.Button1Click(Sender: TObject);
var mmFrames, mmLength, mmWidth, mmHeight: integer;
begin
  If opendialog1.Execute then begin
    GetProperties(opendialog1.FileName,
                  mmFrames, mmLength, mmWidth, mmHeight);
    Memo1.Lines.Add(opendialog1.FileName + ':');
    Memo1.Lines.Add('frames: ' + inttostr(mmFrames));
    Memo1.Lines.Add('length: ' + inttostr(mmLength));
    Memo1.Lines.Add('width: ' + inttostr(mmWidth));
    Memo1.Lines.Add('height: ' + inttostr(mmHeight));
  end;
end;