вместо memo передать в переменную

[bulldog5293]

For N:=0 To Form1.IdHTTP1.Response.RawHeaders.Count-1 Do
    Begin
      If Form1.IdHTTP1.Response.RawHeaders.Names[N]='Set-Cookie' Then
        Begin
          Form1.Memo.Lines.Append(Form1.IdHTTP1.Response.RawHeaders.ValueFromIndex[N]);
        End;
    End;

так куки добавляются в мемо, хорош в случае когда Set-Cookie больше одного, у меня как раз этот случай, но передать Cookie так и не нашёл как в этом случае, от сюда вопросец возник, как в место мемо использовать переменную что бы отправить в таком виде

FH.Request.CustomHeaders.Add('Cookie: '+c);

[dosha]

TStringlist - пробуй

[kangreon]

Небольшой пример, как я записываю куки. Данный код писался для моей программы. Причиной написания послужило то, что Indy не хочет записывать несколько кукисов =(

Кукисы хранятся в переменной CookieList в формате:
name=value
name=value

Может быть пригодится.

var
	CookieList : TStringList;
	http := TIdHTTP;

function TForm1.GetEx(URL: string): string;
begin
  InsertCookie;
  try
    result := http.Get(URL);
  except
    try
      result := http.Get(URL);
    except
      Exit;
    end;
  end;
  LoadCookies;
end;

procedure TForm1.InsertCookie;
var
  s: string;
  i: Integer;
begin
  s := 'Cookie: ';
  for i := 0 to CookieList.Count - 1 do
    s := s + CookieList.Strings[i] + '; ';

  //s := s + 'cc=1; com_jw_fpss=true; hotlog=1'#13#10'Cookie2: $Version=1';
  http.Request.CustomHeaders.text := s;
end;

procedure TForm1.LoadCookies;
var
  s: string;
  i, y, z: Integer;
  new, temp: TStringList;
  OldP, NewP: string;
begin
  new := TStringList.Create;
  temp := TStringList.Create;
  s := http.Response.RawHeaders.text;
  while Pos('Set-Cookie', s) <> 0 do
  begin
    y := Pos('Set-Cookie', s);
    i := PosEx(': ', s, y) + 2;
    new.Add(Copy(s, i, PosEx(';', s, i) - i));
    Delete(s, y, 10);
  end;

  if new.text <> '' then
    for i := 0 to new.Count - 1 do
    begin
      s := new.Strings[i];
      y := Pos('=', s);
      NewP := Copy(s, 1, y - 1);
      if CookieList.text <> '' then
        for y := 0 to CookieList.Count - 1 do
        begin
          s := CookieList.Strings[y];
          z := Pos('=', s);
          OldP := Copy(s, 1, z - 1);
          if OldP = NewP then
          begin
            temp.Add(new.Strings[i]);
            new.Strings[i] := '-=-';
            CookieList.Strings[y] := '-=-';
          end;
        end;
    end;

  if new.text <> '' then
    for i := 0 to new.Count - 1 do
      if new.Strings[i] <> '-=-' then
        temp.Add(new.Strings[i]);

  if CookieList.text <> '' then
    for i := 0 to CookieList.Count - 1 do
      if CookieList.Strings[i] <> '-=-' then
        temp.Add(CookieList.Strings[i]);

  CookieList.Clear;
  CookieList := temp;
  //CookieList.SaveToFile(ExtractFilePath(Application.ExeName) + 'Cookies.dat');
end;

Как использовать

s := form1.getex('http://www.google.com/')

[bulldog5293]

а -=- для чего?

[kangreon]

Это что-то вроде уникального символа. =)
Если серер отправил value=;
Для дальнейшего удаления данной кукисы.

Код писался без последующей оптимизации =)

[bulldog5293]

ну не чё, спс за идею, дальше разберусь и оптимизирую под себя

всё таки решил поступить как посоветовал dosha, и использовать TStringlist

       For N:=0 To Http.Response.RawHeaders.Count-1 Do
    Begin
      If Http.Response.RawHeaders.Names[N]='Set-Cookie' Then
        Begin
          CookieList.Add(Http.Response.RawHeaders.ValueFromIndex[N]);
        End;
    End;

но как теперь передать отпарсеные куки? И так пробывал

CookieList.Add(Http.Request.CustomHeaders);

И эдак

Http.Request.CustomHeaders.Add(CookieList);

И вот так

CookieList:=Http.Request.CustomHeaders.Add;

Посоветуйти как быть в такой ситлуации