procedure TForm1.Button1Click(Sender: TObject);
var sl: Tstrings;
begin
sl := TStringList.Create;
idhttp1.HandleRedirects := true;
idhttp1.Disconnect;
browser.Silent := true;
sl.Add('test111=vvv');
sl.Add('upload=yes');
sl.Add('JQ=85');
sl.Add('F=\"C:\Image.jpg\"');
sl.Add('CP=yes');
sl.Add('VE=yes');
sl.Add('VM=180');
sl.Add('Submit=1'); // тут чего писать?
try
memo1.Text := idhttp1.Post('http://www.radikal.ru/action.aspx', sl);
finally
sl.Free;
end;
end;