combox读写

这个是我的读取代码
procedure Tfwqlj.FormShow(Sender: TObject);
var
 Ini: TIniFile ;
 filename,ip:string;
 zhangtao:tstringlist;
 begin
 filename:= ExtractFilePath(ParamStr(0))+'CreateIP.Ini';
 Ini:= TIniFile.Create(filename);
 zhangtao:=tstringlist.create;
 ip:= Ini.ReadString('CreSIP','IP','False');
 ini.ReadSections(u8zhangtao.Items);
 with u8zhangtao do begin
 Items.Assign(zhangtao);
 ItemIndex := 0;
 end;
 if (Trim(ip) <> 'False')   then
  begin
    u8fwq.Text:= ip;
  end;
  zhangtao.free;
  Ini.Free;
end;这个是我的写入代码
procedure Tfwqlj.Button2Click(Sender: TObject);
var
 Ini: TIniFile;
 filename,ip,zhangtao: String;begin
  if (u8fwq.Text = '') or (u8fwq.Text = '请输入服务器IP') then
  begin
    Application.MessageBox('请输入服务器IP', '提示', 64);
    u8fwq.SetFocus;
    Exit;
  end;
  filename:= ExtractFilePath(ParamStr(0))+'CreateIP.Ini';
  ini:= TIniFile.Create(filename);
  ip:=u8fwq.Text;
  Ini.WriteString('CreSIP','IP',ip);
  Ini.Free;
end;
end.我第二次登陆的时候combox里没有数据，还是空的。请高手解答