Некорректное считывание записаных данных в реестр

[Dozent]

Здраствуйте.
У меня проблема, до этого с реестром не работал...
НАшёл давльн опросто и не большйо код записи/считывания данынх реестра

uses
 ... Registry...

var
  Form2: TForm2;
  FIniFile: TRegIniFile;

Запись

FIniFile := TRegIniFile.Create('Software');
FIniFile.OpenKey('GamerClub',true);
FIniFile.WriteInteger('Option', 'Port', 1);
FIniFile.WriteInteger('Option', 'Ip', 1);
FIniFile.WriteInteger('Option' ,'Name', 1);
FIniFile.Free; //освобождаем переменную

Считывание

FIniFile := TRegIniFile.Create('Software');
FIniFile.OpenKey('GameClub',true);
Edit2.Text:=intToStr(FIniFile.ReadInteger('Option', 'Port', 600));

	
	

			
				// Третий параметр 600 – это значение по умолчанию, если ключ с названием ‘Width’ не будет найден
			
		
Edit3.Text:=IntToStr(FIniFile.ReadInteger('Option', 'Ip', 300));
Edit4.Text:=IntToStr(FIniFile.ReadInteger('Option', 'Name',10 ));
FIniFile.Free; //освобождаем переменную

Проблема в том что он возврашает эти числа 600 300 10 , а мне надо те котоыре у меня записаны, через regedit смотрю есть они создались записались, а корректно считать не могу.

Подскажи плз. Заранее благодарен.

[uberchel]

Надо быть повнимательнее

procedure TForm1.FormCreate(Sender: TObject);
begin
 FIniFile := TRegIniFile.Create('Software');
 FIniFile.OpenKey('GamerClub',true);  //сдесь была ошибка: GameClub
 Edt1.Text:=intToStr(FIniFile.ReadInteger('Option', 'Port', 600));
 Edt2.Text:=IntToStr(FIniFile.ReadInteger('Option', 'Ip', 300));
 Edt3.Text:=IntToStr(FIniFile.ReadInteger('Option', 'Name',10 ));
 FIniFile.Free; //îñâîáîæäàåì ïåðåìåííóþ
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 FIniFile := TRegIniFile.Create('Software');
 FIniFile.OpenKey('GamerClub', True);
 FIniFile.WriteInteger('Option', 'Port', StrToInt(edt1.Text)); //ну а здесь надо было дописать вот это, все 3 едита
 FIniFile.WriteInteger('Option', 'Ip', StrToInt(edt2.Text));
 FIniFile.WriteInteger('Option' ,'Name', StrToInt(edt3.Text));
 FIniFile.Free;
end;

[evg_m]

FIniFile.OpenKey('GamerClub',true);
FIniFile.OpenKey('GameClub',true);

[Dozent]

Ужас!!! Извините пожайлуста... Тороплюс просто....
Спасибо большое!

[Toxa]

и еще надо делать после записи

FIniFile.closekey