procedure TForm1.Button1Click(Sender: TObject);

var
ini:TIniFile;

begin

Ini:=TiniFile.Create(extractfilepath(paramstr(0))+''+Edit1.Text+'.ini');
ini.WriteString('Player Info','Name:',form1.Edit1.Text);
ini.WriteString('Player Info','Password:',form1.Edit2.Text);
ini.WriteString('Player Info','Force:','5');
ini.WriteString('Player Info','Agility:','5');
ini.WriteString('Player Info','Brain:','5');
ini.WriteString('Player Info','Stay:','5');
ini.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);

var
ini:TIniFile;

begin

Ini:=TiniFile.Create(extractfilepath(paramstr(0))+''+Edit1.Text+'.ini');
Edit1.Text:=ini.ReadString('Player Info','Name:','');
Edit2.Text:=ini.ReadString('Player Info','Password:','');
label9.caption:=ini.ReadString('Player Info','Force:','');
label10.caption:=ini.ReadString('Player Info','Agility:','');
label11.caption:=ini.ReadString('Player Info','Brain:','');
label12.caption:=ini.ReadString('Player Info','Stay:','');

Edit1.Enabled := false;
Edit2.Enabled := false;
Button1.Enabled := false;
Button2.Enabled := false;
end;