Процедуру описанную в модуле не видно из файла проекта

[Shnaps151]

Доброго времени суток, моя проблема такова:

пишу скринсейвер, в Unit1.pas описана процедура Preview, при попытке обращения к которой из файла проекта (Project2.dpr) возникает ошибка:
(сам модуль в uses я поставил)

[Error] Project2.dpr(15): Undeclared identifier: 'Preview'

вот код файла проекта :

program Project2;

uses
  Forms,Dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var c:char;
begin
if (ParamCount >= 1) and (Length(ParamStr(1)) > 1) then
 c := UpCase(ParamStr(1)[2])
else
 c := #0;
 case c of
 'P': Preview; 
 'S': begin
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.Run;
  end;
 else begin
  Application.Initialize;
  ShowMessage('This is a very cool screensaver!');
  Application.Run;
 end;
end;
end.

процедура точно есть и точно описана в Unit1.pas
(в Exploring присутствует)

[ZuBy]

перед implementation
напиши procedure Preview;