mORMot Open Source

A ver como realizar una pregunta en este foro y no morir en el intento sin que te manden a leer  la peor documentación del mundo

Como agregar enviar un servidor via http.

Tengo esto y funciona.
procedure TForm2.Button5Click(Sender: TObject);
Var
  D: Variant;
begin
  TDocVariantData(D).AddValue('campo','Nice guy');
  Memo1.Text := TWinHTTP.Post('https://utc24h.s1.com.ve/campo', D, 'Content-Type: application/json', true, nil);
end;

Ahora quiere enviar una imagen.
intente esto y no funciona

procedure TForm2.Button3Click(Sender: TObject);
Var
  D: Variant;
  Imagen: TMemoryStream;
   LRawBytes : RawByteString;
begin
  Imagen := TMemoryStream.Create;
  Try
    Imagen.LoadFromFile('C:\Users\Administrador\Desktop\yomismo.jpg');
    LRawBytes := StreamToRawByteString(Imagen);
    TDocVariantData(D).AddValue('archivo', LRawBytes);
    Memo1.Text := TWinHTTP.Post('https://utc24h.s1.com.ve/archivo', D, 'Content-Type: Application/octet-stream', true, nil);
  Finally
    Imagen.Free;
  End;
end;

esto tampoco

procedure TForm2.Button3Click(Sender: TObject);
Var
  D: Variant;
  Imagen: TMemoryStream;
   LRawBytes : RawByteString;
begin
  Imagen := TMemoryStream.Create;
  Try
    Imagen.LoadFromFile('C:\Users\Administrador\Desktop\yomismo.jpg');
    LRawBytes := StreamToRawByteString(Imagen);
    TDocVariantData(D).AddValue('archivo', LRawBytes);
    Memo1.Text := TWinHTTP.Post('https://utc24h.s1.com.ve/archivo', D, 'Content-Type: multipart/form-data; boundary=' +IntToHex(Random(MaxInt), 8) + '_info_boundary', true, nil);
  Finally
    Imagen.Free;
  End;
end;