怎样给mycookie：Tstringlist赋值

procedure TForm1.Button1Click(Sender: TObject);
var
  lStringList: TStringList;
begin
  lStringList:= TStringList.Create;
  lStringList.Add(sString);
  if Trim(BuildEdt.Text) = lStringList.Strings[lStringList.IndexOf[sString]] then
     Exit;
  lStringList.Free;
end;