Ejecutar exe desde servicio

[mierda]

Hola amigüitos, estoy creando un servicio desde delphi 7 para que cuando se inserta un cd me lo detecte y ejecute un .exe que hay en el cd.

Ahora mismo pongo un timer cada X segundos que intente verificar si existe un fichero, con el fileexist nunca me dice que esta el fichero y ya ni hablar de intentar ejecutarlo, ya que dentro de un servicio dicen que solo sirve el createprocess y no me va tampoco.

Aqui pongo el codigo pa detectar el exe ....

codigo:

Código Delphi [-]
 
unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Timer1Timer(Sender: TObject);
const
FileName = 'c:\logdate.txt';
var
F: TextFile;
aguardar: string;
midrive: char;
begin
{
For miDrive:='c' to 'z' do
  begin
    memo1.Lines.add ('Intentandolo con la letra ' + pchar(midrive));
    If GetDriveType (pchar(midrive + ':\')) = DRIVE_CDROM then
      begin
        if FileExists(pchar(midrive + ':\') + 'CdAct.exe') then
          aguardar := 'Se ha encontrado el fichero'
        else
          aguardar := 'NOOOOOO se ha encontrado el fichero'
      end;
  end;
}
if FileExists('D:\CdAct.exe') then
  aguardar := 'Se ha encontrado el fichero'
else
  aguardar := 'NOOOOOO se ha encontrado el fichero';
AssignFile(f,FileName);
if FileExists(FileName) then Append(f)
else
Rewrite(f);
writeln(f,aguardar);
//ShowMessage(DateTimeToStr(Now));
CloseFile(f);
end;
end.

Alguna idea?!?!