Создание плеера в Delphi

[Silent_Hell]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
with MediaPlayer1 do
if FileName<>'' then Gauge1.Progress:=Round(100*Position/Length);
end;
end;
end;
end.

Выдает ошибку: 1. Unit 'FileCrt' is specific to a platform
2. Undeclared identifier: 'Gauge1' 3. '.' expected but ';' found

[SERG1980]

3. У вас 2 лишних end
2. Может быть ваш Gauge расположен на другой форме или проверьте св-во Name оно должно быть Gauge1