idHTTP.Post('http://vk.com/upload.php', Params, Content);

procedure TMainForm.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
beign
  If AWorkMode = wmWrite Then { Действия }
end;