Есть текс программы но не запускаеться в Делфи. Помогите приз умные люди!!!!
ВОт текст !

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, OleCtrls, WMPLib_TLB, StdCtrls,MMSYSTEM, FileCtrl;

type
TForm1 = class(TForm)
MediaPlayer: TWindowsMediaPlayer;
MainMenu: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
ListBox1: TListBox;
procedure N3Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure PlayList(Path: string);
procedure ListBox1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
var
SoundPath: string[255];
procedure TForm1.N3Click(Sender: TObject);
var
Root: string;
pwRoot : PWideChar;
Dir: string;
begin
Root := '';
GetMem(pwRoot, (Length(Root)+1) * 2);
pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);
if not SelectDirectory('Выберите папку', pwRoot, Dir)
then Dir :=''
else Dir := Dir+'\';
SoundPath:= Dir;
PlayList(SoundPath);
end;

procedure TForm1.N7Click(Sender: TObject);
begin
Self.Close;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
if MediaPlayer.PlayState =wmppsPlaying then
MediaPlayer.Controls.Stop
else
MediaPlayer.Controls.Play;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
if MediaPlayer.PlayState =wmppsPlaying then
MediaPlayer.Controls.Pause;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;
procedure TForm1.PlayList(Path: string);
var
lpBuf: PChar;
sWinDir: string[128];
SearchRec: TSearchRec;
begin
ListBox1.Clear;
if FindFirst(Path + '*.mp3', faAnyFile, SearchRec) =0 then
begin
ListBox1.Items.Add(SearchRec.Name);
while (FindNext(SearchRec) = 0) do
ListBox1.Items.Add(SearchRec.Name);
end;
ListBox1.ItemIndex := 0;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
MediaPlayer.URL:=SoundPath + ListBox1.Items[ListBox1.itemIndex];
if MediaPlayer.PlayState =wmppsPlaying then
MediaPlayer.Controls.Stop
else
MediaPlayer.Controls.Play;
end;

end.




ВОТ ТЕКСТ ОШИБКИ
[Фатальная Ошибка] Project1.dpr(1): Unit not found: 'System.pas' or binary equivalents (DCU,DPU)

Винамп разобрал?
А собрать не можешь?

Нет. Курсач сдать не могу мозг ипет эта ашибка)

чё та я вообще не догнал... но точно не винамп.
имхо, может какой библеотеке не хватает ака модуля каторый необходимо подключить ?

System.pas
это из бидлиотеки дельфей :)

посмотри в настройках и свойствах проекта наверно каталоги для поиска неправильно настроенны