Не компилируется функция

[kta87]

Ошибки:
[Error] Unit1.pas(49): Undeclared identifier: 'TIniFiles'
[Error] Unit1.pas(49): Incompatible types: 'TComponent' and 'String'
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'
Функция:

function TForm1.KeyValide(inifile: string): boolean;
 begin
   Ini := TIniFiles.Create(inifile);
   Result := Ini.ReadString('Activation','1','') = GetKey;
   Ini.Free;
 end;

TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    function KeyValide(inifile:string): boolean;

Подскажите пути для решения?

[Человек_Борща]

1. добавь модуль IniFiles в раздел Uses.
2.

function TForm1.KeyValide(inifile: string): boolean;
 begin
   Ini := TIniFiles.Create(inifile);
   Result := Ini.ReadString('Activation','1','') = GetKey;
   Ini.Free;
 end;

1. Где обьявлена переменная ini
2. То, что выделено красным не возможно.

[kta87]

IniFiles есть в Uses

implementation

{$R *.dfm}

uses
  IniFiles, Unit2;

var
  Ini: TIniFile;
  f: string;

Почему не возможно?

[Прик]

function TForm1.KeyValide(inifile: string): boolean;
var
  Ini : TIniFile;
begin
  Ini := TIniFile.Create(inifile);
  try
    Result := Ini.ReadString('Activation','1','') = GetKey;
  finally
    Ini.Free;
  end;
end;

[kta87]

Ну вот так с компилировалось

function TForm1.KeyValide(inifile: string): boolean;
var
  Ini : TIniFile;
 begin
  Ini := TIniFile.Create(inifile);
  try
    Result := Ini.ReadString('Activation','1','') = GetKey;
  finally
    Ini.Free;
  end;
 end;

однако может я что то напортачил, но не работает функция(((

procedure TForm1.FormCreate(Sender: TObject);
 begin
   f:= ExtractFilePath(ParamStr(0))+'file.ini';
   // заносим в переменную адресс INI файла

   if KeyValide(f) then
     begin
        Form1.Visible:= False;
        Form2.Enabled:= True;
     end;
 end;

Должно по идее форма 1 пропадать а форма 2 становиться активной!, но это не работает!!!

[Прик]

Значит идея дохлая.
А форма1, скорее всего, главная. И создается первой.
А форма 2, скорее всего, еще не создана.
Да и форма 1 в своем OnCreate толком еще не создана, а ее пытаются заставить спрятаться.

[kta87]

Сообщение от Прик

Значит идея дохлая.
А форма1, скорее всего, главная. И создается первой.
А форма 2, скорее всего, еще не создана.
Да и форма 1 в своем OnCreate толком еще не создана, а ее пытаются заставить спрятаться.

Если я действия манипуляции с формами делаю по клику кнопки на форме 1, то все работает нормально, но при запуске вторичном , с начало должна идти проверка введенного кода, а следовательно первой должна запускаться форма 2 и в ней должна работать функция эта , так я понимаю?

[Прик]

Из всего выше написанного так и непонятна цель манипуляций с формами и их последовательность.
Если очень хочется формами манипулировать при запуске, то делать это надо в тексте проекта (*.dpr).
В нем можно делать чтение из ини-файла и по результатам чтения создавать одну, другую, или обе формы.
Вариант, не исключающий чтение из ини-файла, когда первой создается форма 2 и ее появление должно происходить методом ShowModal, а после того как она закрывается создавать главную форму. Но, опять же, все это должно быть сделано в тексте проекта, а никак не в форме, которой пытаются манипулировать.