[IkaMazini]

procedure TForm1.Button2Click(Sender: TObject);
begin
 if OpenDialog3.Execute then
begin
 AssignFile(f, OpenDialog3.FileName);
 Reset(f);
try
 size := FileSize(f);
 GroupBox1.Caption := 'File Size is ' + IntToStr(size) + ' Byte';
finally
 CloseFile(f);
 Edit1.Text := OpenDialog1.FileName;
 end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with MediaPlayer1 do
begin
MediaPlayer1.FileName := 'min.wav';
AutoRewind := true;
Open;
try    //здес что-то не так
Wait := True;
Play;
finally
Form1.Close;
end;
end;
end;


Добавлено:

var
   f: file;
   size: Longint;

Добавлено:

vasketsov