[kerneldos]

в обработке создания формы project2(3,4) пытаешься найти окно poject1, если удачно - добавляешь строку в log.

Код Project1:
(Свойсво Caption формы измени на Project1)

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
 logFile:TextFile;
begin
  AssignFile(logfile,'log.txt');
  if not(FileExists('log.txt')) then ReWrite(logfile)
  else Append(logfile);
  writeln(logFile,'Project1 запущен. ',TimeToStr(Time));
  CloseFile(logFile);
end;

Код Project2:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
 logFile:TextFile;
begin
  if FindWindow(nil,'Project1')<>0 then begin
    AssignFile(logfile,'log.txt');
    if not(FileExists('log.txt')) then ReWrite(logfile)
    else Append(logfile);
    writeln(logFile,'Project2 запущен. ',TimeToStr(Time));
    CloseFile(logFile);
  end;
end;