gem billede fra webbrowser

brug indy
Edit1 er URL'en til filen du vil downloade

function ExtractUrlFileName(const AUrl: string): string; 
var 
  i: Integer; 
begin 
  i := LastDelimiter('/', AUrl);
  Result := Copy(AUrl, i + 1, Length(AUrl) - (i)); 
end; 

procedure TForm1.Button2Click(Sender: TObject);

var 
  s: string; 
begin 
  s := ExtractUrlFileName(edit1.Text);
AStream := TMemoryStream.Create;

idhttp1.Get(edit1.Text,astream);
astream.SaveToFile('d:\download\' + s);



astream.Free;
showmessage('Filen er downloadet');

end;

Stoney

nu er jeg ikke nogen haj til delphi.. kan du prøve at skrive et eksempel i stedet for de generelle koder?? hvis jeg prøver at skrive som du har gjort kommer der en fejl ved linien "AStream := TMemoryStream.Create;"

hvad gør jeg for at løse problemet???