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;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

//Из десятичной в двоичную
procedure TForm1.Button2Click(Sender: TObject);
var
number:cardinal;
begin
 number:=strtoint(Edit1.text);
   Edit1.text:='';
  repeat
    if number mod 2 = 1 then
       Edit1.text:='1'+Edit1.text
    else
       Edit1.text:='0'+Edit1.text;
       number:=number div 2;
    until 
       number = 0;
end;

//из двоичной в десятичную
procedure TForm1.Button1Click(Sender: TObject); 
var
i,p: cardinal;
begin
p:=0;
for i:=1 to length(Edit1.text) do
   begin
   p:=p*2;
   if Edit1.text[i] = '1' then
      p:=p+1
   else if Edit1.text[i] <> '0' then
      ShowMessage('Ошибка преобразования'); 
   end;
Edit1.text:=inttostr(p);
end;
end.