[perkalaba]

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  if FileOpen('1.txt',fmOpenWrite or fmShareExclusive)<=0 then
   begin
    MessageDlg('Програма yже запущена', mtError,[mbOk],0);
    Halt
   end;
end;

вот решение, кому интересно