TStream og post

Hej jeg har følgende procedure "SendBillede" som skulle tage billede 'C:\63.bmp' og poste det til en webserver.

procedure SendBillede;
var
  s:TMemoryStream;
  Pic:TBitMap;
begin
  s:=TMemoryStream.Create;
  Pic:=TBitMap.Create;
  Pic.LoadFromFile('C:\63.bmp');
  Pic.SaveToStream(s);
  s.Position:=0;
  idhttp1.post('http://127.0.0.1',s);//indys tidhttp
  s.free;
  pic.free;
end;

Ovenstående skulle sende billede via stream til følgende server

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);  //indys tidhttpserver event oncommandget
var
  Pic:TBitMap;
begin
  Pic:=TBitMap.Create;
  Pic.LoadFromStream(ARequestInfo.PostStream);//denne sætning giver accesviolation!!!!
  image1.Picture.Bitmap:=pic;
  pic.free;
end;

Hvad er der galt med ovenstående kode, der dukker aldrig et billede op på serveren???
Er det noget med tstream?? prøv evt selv at kører koden.

Mvh Anders