Реализация авторизации...

void __fastcall TForm1::Button4Click(TObject *Sender)
{
AnsiString apass=Form1->Edit1->Text;
FILE* f = fopen ("admin.txt", "r+");
if (f == NULL)
{ShowMessage ("Файл не открыт");
return;}
char pass[30];
fscanf (f, "%s", pass);
if ( apass != pass )
{ShowMessage ("Неверный пароль");
return;}
ShowMessage ("Верный пароль");
}

void __fastcall TForm1::Button4Click(TObject *Sender)
{
  AnsiString apass = Edit1->Text;
  String pass_file = ExtractFilePath(Application->ExeName)+"admin.txt";
  FILE* f = fopen(pass_file.c_str(), "r+");
  if (f == NULL)
  {
    ShowMessage ("Файл не открыт");
    return;
  }
  char pass[30];
  fscanf (f, "%s", pass);
  if ( apass != pass )
  {
    ShowMessage ("Неверный пароль");
    return;
  }
  ShowMessage ("Верный пароль");
}

if ( apass != AnsiString(pass) )

if(strcmp(apass.c_str(), pass) != 0)

{
AnsiString ulogin=Form1->Edit3->Text;
FILE* f = fopen ("users.txt", "r+");
if (f == NULL)
{ShowMessage ("Файл не открыт");
return;}
fprintf (f, "%s", ulogin);
fflush (f);
fseek (f, 0, SEEK_SET);
char qwe[30];
fscanf (f, "%s", qwe);
Form1->Edit4->Text=qwe;
fclose (f);
}

fseek (f, 0, SEEK_SET);

if (apass != AnsiString(pass))

if (pass != apass)

bool verify (const char* user)
{
  FILE * f1;
  f1 = fopen ("users.txt", "r");
  char u[40];
     while (!feof (f1))
     {
       fscanf (f1, "%s", u);
         if (!strcmp (u, user)) 
         return true;
      }
  return false;
}
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
    if (verify (AnsiString(Edit3->Text).c_str()) == true ) 
    {
     ShowMessage ("Already existed user");
     return;
    }
  AnsiString ulogin=Form1->Edit3->Text;
  AnsiString upass=Form1->Edit4->Text;
  FILE* f = fopen ("users.txt", "ab");
    if (f == NULL)
    {
     ShowMessage ("Файл не найден");
     return;
    }
  fprintf (f,"%s %s\n",ulogin,upass);
  fclose (f);
}

#include IniFiles.hpp
 
TForm1 *Form1;
 
TIniFile *Ini = new TIniFile("users.ini");
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Ini->WriteString("Edits","Edit1",Edit1->Text); //
    Ini->WriteString("Edits","Edit2",Edit2->Text);
}
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    Edit1->Text = Ini->ReadString("Edits","Edit1","А если там ничо нет");
    Edit2->Text = Ini->ReadString("Edits","Edit2","значение по умолчанию");
}