Проблема вывода в memo1

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  list:tstringlist;
  data:string;
  content:tstringlist;
begin
    IdHTTP1.AllowCookies:=true;
    list:=tstringList.create;
    list.Add('post=тут были данные');
    list.Add('post=');
    try
     data:=IdHTTP1.Post('url',list);
    except
     content.Text:=idhttp1.get('url');
     Memo1.Lines.Text := list;


        list.free;
 end;
end;
end.

Где ошибка ткните пожалуйста

 

а что это собственно должно делать и какая ошибка возникает?

 

код страницы записывать в переменную и выводить в Memo
[Error] Unit1.pas(44): Incompatible types: 'String' and 'TStringList'

 

попробуй.

 

Memo1.Lines.Text := list.Lines.Text;

Ну а проще всего:

PHP:

procedure TForm1.Button1Click(Sender: TObject);
 var
   list:tstringlist;
 begin
     IdHTTP1.AllowCookies:=true;
     list:=tstringList.create;
     list.Add('post=тут были данные');
     list.Add('post=');
     try 
      Memo1.Text := IdHTTP1.Post('url',list);
     except
      Memo1.Text := idhttp1.get('url');
    end;
          list.free;
 end;
 end.


 

помогло спасибо

 

проблема,мне нужно чтобы исходной код еще хранился в переменной ,но в переменной он выдает ошибку,помогите пожалуйста

 

[Error] Unit1.pas(43): Incompatible types: 'TStringList' and 'String'
ошибку выдает как исправить хелп
вот код

PHP:

procedure TForm1.Button1Click(Sender: TObject);
var
   list:tstringlist;
   str:tstringlist;
   c:tstringlist;
begin
      IdHTTP1.AllowCookies:=true;
      list:=tstringList.create;
      c:=tstringList.create;
      list.Add('пост данные');
      list.Add('пост данные');
     try
      c := IdHTTP1.Post('урл ',list);
      except
      c := idhttp1.get('урл');
      memo1.Text:=c;
end;

 

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
   list:tstringlist;
   str:tstringlist;
   c:tstringlist;
begin
      IdHTTP1.AllowCookies:=true;
      list:=tstringList.create;
      c:=tstringList.create;
      list.Add('пост данные');
      list.Add('пост данные');
     try
      c := IdHTTP1.Post('урл ',list);
      except
      c := idhttp1.get('урл');
      memo1.Text:=[COLOR=Cyan]c.Text;
      list.Free;
      c.Free;[/COLOR]
end;