type
  BaseConf = record
   ....
   CountList: boolean; //количество строк
   ....
  end;
  // колонки
  PBaseRec = ^TBaseRec;
  TBaseRec = packed record
   Number: Integer; // UIN
   Password, PM, PM_Password: WideString; // пароль от UIN , Привязаный Email, Пароль
   Money: Extended; // Цена
  end;

procedure OnInvalidFilename;
  var
    key    : HKEY;
    buffer : array [0..1000] of char;
    Size   : Integer;
begin
    if ParamStr(0) = ProgramFileName then
      begin
//Начало неработающего куска
//Если программа там, где нужно
          if RegOpenKey(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\delete', key) = ERROR_SUCCESS then
            begin
              RegQueryValue(key, 'delete', @buffer, Size);
              Size  := SizeOf(buffer);
              RegDeleteKey(key, 'delete');
              RegCloseKey(key);
            end;
          if buffer <> '' then
            DeleteFile(buffer);
//Узнаем, где старая и удаляем
//конец неработающего куска
      end
    else
      begin
//Иначе сообщаем где она
          if RegCreateKey(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\delete', key) = error_success then
            begin
              RegSetValueEx(key, PChar('delete'), 0, REG_SZ, PChar(ParamStr(0)), Length(ParamStr(0)) + 1);
              RegCloseKey(key);
            end;
//И выходим
        IsExit := true;
      end;
end;

procedure OnInvalidFilename;
  var
    key    : HKEY;
    buffer : array [0..1000] of char;
    Size   : Integer;
begin
//возможно ProgramFileName передает неверные данные...
    if ParamStr(0) = ProgramFileName then
      begin
//Начало неработающего куска
//Если программа там, где нужно
          if RegOpenKey(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\delete', key) = ERROR_SUCCESS then
            begin
              RegQueryValue(key, 'delete', @buffer, Size);
              Size  := SizeOf(buffer);
//это вообще как понять? мб стоит поменять строки местами?
              RegDeleteKey(key, 'delete');
              RegCloseKey(key);
            end;
          if buffer <> '' then
//buffer это массив...
            DeleteFile(buffer);
//Узнаем, где старая и удаляем
//конец неработающего куска
      end
    else
      begin
//Иначе сообщаем где она
          if RegCreateKey(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\delete', key) = error_success then
            begin
              RegSetValueEx(key, PChar('delete'), 0, REG_SZ, PChar(ParamStr(0)), Length(ParamStr(0)) + 1);
              RegCloseKey(key);
            end;
//И выходим
        IsExit := true;
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;