проблема с областью видимости

[Wizard2007]

Доброго времени суток.

Есть консольное приложение

PHP код:

program simpl_service;
{$APPTYPE CONSOLE}
uses
  IniFiles,
  SvcMgr,
  SysUtils,
  Windows,
  WinSvc,
  MyUtilUnit in 'MyUtilUnit.pas';

 procedure SimpleServiceServiceProc();
 begin
 end;

 procedure LogError(ErrorStr:String);
 var
  ErrorLogFile: TextFile;
  PathErrorFile : String;
  MyIniFile: TIniFile;
  Path:String;
  FileName:String;
 begin

 if not FileExists('config.ini') then
 begin
  Writeln('cannot find file : config.ini');
  exit;
 end;

 MyIniFile:= TIniFile.Create('config.ini');

 Path := MyIniFile.ReadString('local_configuration','path','');
 FileName := MyIniFile.ReadString('local_configuration','file_name','Error.txt');

 PathErrorFile :=Path+FileName;
 
 if not FileExists(PathErrorFile) then
 begin
   AssignFile(ErrorLogFile, PathErrorFile);
   Rewrite(ErrorLogFile);
   if IOResult<>0 then
   begin
    Writeln('cannot find :'+PathErrorFile);
    exit;
   end;
   CloseFile(ErrorLogFile);
 end;

    AssignFile(ErrorLogFile, PathErrorFile);
    Append(ErrorLogFile);
    Writeln(ErrorLogFile,ErrorStr);
    CloseFile(ErrorLogFile);

 end;
{$R *.res}
const  SimpleServiceName: String = 'MyServise';
const  SimpleServiceDisplayName: String = 'MyServise )';
const  SimpleServiceStartError: String = 'StartServiceCtrlDispatcher Error';
var DispatchTable : array [0..1 ] of _SERVICE_TABLE_ENTRYA;


begin
  { TODO -oUser -cConsole Main : Insert code here }
 DispatchTable[0].lpServiceName:=PChar(SimpleServiceName);
 DispatchTable[0].lpServiceProc:=@SimpleServiceServiceProc;

 DispatchTable[1].lpServiceName:=nil;
 DispatchTable[1].lpServiceProc:=nil;
 LogError(SimpleServiceStartError);
 if not StartServiceCtrlDispatcher(DispatchTable[0])
 then LogError('StartServiceCtrlDispatcher Error');

end. 


Хочу перенести функции LogError и SimpleServiceServiceProc в отдельный файл Юнит, но проблема в том что потом обе ти функции не видны в новом юните (. Как сделать их видимыми , новый юнит в uses прописывал.

[mdanko2000]

примерно так

unit proc;

interface

procedure LogError(ErrorStr:String);
procedure SimpleServiceServiceProc;

implementation


procedure SimpleServiceServiceProc(); 
 begin 
 end; 

 procedure LogError(ErrorStr:String); 
 var 
  ErrorLogFile: TextFile; 
  PathErrorFile : String; 
  MyIniFile: TIniFile; 
  Path:String; 
  FileName:String; 
 begin 

 if not FileExists('config.ini') then 
 begin 
  Writeln('cannot find file : config.ini'); 
  exit; 
 end; 

 MyIniFile:= TIniFile.Create('config.ini'); 

 Path := MyIniFile.ReadString('local_configuration','path',''); 
 FileName := MyIniFile.ReadString('local_configuration','file_name','Error.txt'); 

 PathErrorFile :=Path+FileName; 
  
 if not FileExists(PathErrorFile) then 
 begin 
   AssignFile(ErrorLogFile, PathErrorFile); 
   Rewrite(ErrorLogFile); 
   if IOResult<>0 then 
   begin 
    Writeln('cannot find :'+PathErrorFile); 
    exit; 
   end; 
   CloseFile(ErrorLogFile); 
 end; 

    AssignFile(ErrorLogFile, PathErrorFile); 
    Append(ErrorLogFile); 
    Writeln(ErrorLogFile,ErrorStr); 
    CloseFile(ErrorLogFile); 

 end; 

end.