procedure TForm1.KOLForm1FormCreate(Sender: PObj);
var Mouse: TMouseEventData;
begin
LoadIni;
DFind( TV.TVInsert( TV.TVRoot, 0, ExcludeTrailingPathDelimiter(PathStalk)), PathStalk);
end;

procedure TForm1.LoadIni;
var
ini: PIniFile;
OD: POpenDirDialog;
x: integer;
begin
if FileExists(GetStartDir + 'settings.ini') Then
и т.п.

if not DirectoryExists( PathStalk + '\gamedata\sounds\')then
begin
  OD := NewOpenDirDialog('', [odEditBox, odNewDialogStyle]);
  OD.InitialPath := 'C:\';
  Repeat
    if OD.Execute Then
      PathStalk := OD.Path
    Else
    begin
      Form.Close; // как правильно в этот момент закрыть программу?
    end;
  Until DirectoryExists( PathStalk + '\gamedata\sounds\');
  OD.Free;
end;
end;

function TForm1.KOLForm1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
var
Filename: array [0..259] of char;
Count, i, n: Cardinal;
fname, STpath: string;
Mouse: TMouseEventData;
begin
if msg.message = 563 Then
begin
  Result := False;
  Count := DragQueryFile( msg.WParam, $FFFFFFFF, Filename, SizeOf(Filename));

  for i := 0 to Count - 1 do
  begin
    DragQueryFile( msg.WParam, i, Filename, SizeOf(Filename));
    fname := ExtractFileName(string(Filename));
    if LV.LVIndexOf(fname) >= 0 Then // если найдено
    begin
      STpath := IncludeTrailingPathDelimiter(TV.TVItemPath(TV.TVSelected, '\'));
      n := 0;
      While LV.LVIndexOf(fname + '.bak' + int2str(n) ) >= 0 Do
        n := n + 1;
      CopyMoveFiles( STpath + fname, STpath + fname + '.bak' + int2str(n), True);
      CopyMoveFiles( string(Filename), STpath + fname, False);
    end;
  end;
  DragFinish(Msg.WParam);
  Result := True;
end;
end;

if msg.message = 563 Then
begin
 Result := False;

Result := False;
if msg.message = 563 Then
begin

if not DirectoryExists( PathStalk + '\gamedata\sounds\')then
begin
 OD := NewOpenDirDialog('', [odEditBox, odNewDialogStyle]);
 OD.InitialPath := 'C:\';
 Repeat
   if OD.Execute Then
     PathStalk := OD.Path
   Else
   begin
     Form.Close; // как правильно в этот момент закрыть программу?
   end;
 Until DirectoryExists( PathStalk + '\gamedata\sounds\');
 OD.Free;
end;
end;

Form.Close; // как правильно в этот момент закрыть программу

OD.Free;
Form.Close;
exit;

Form.Close; // как правильно в этот момент закрыть программу

OD.Free;
SendMessage(Form.Handle, WM_CLOSE, 0, 0);
exit;

Form.Close; // как правильно в этот момент закрыть программу

OD.Free;
halt;