que hago mal?

[delphi.com.ar]

Varios comentarios:
- ¿Cuál es la lógica de ese tratamiento de errores?
- ¿Cuál es el sentido, de inicializar las variables Jpg y Stream?
- ¿Existen garantías de que exista datasource1.DataSet.FieldByName('logo')?
...

Este último punto, seguramente es la raíz de tu problema, primero tienes que saber si datasource1 tiene asignado un DataSet y luego si en este DataSet existe el campo ‘logo’:

Código Delphi [-]
var
  AField: TField;
begin
  ...
  If Assigned(datasource1.DataSet) then
  begin
    AField := datasource1.DataSet.FieldByName('logo');
    if Assigned(AField) then
       ...
  end;

Por otro lado... ¿Seguro que no puedes acceder directamente al DataSet?

Saludos!

[delphi.com.ar]

Manteniendo tu lógica:

Código Delphi [-]
var
  Stream: TMemoryStream;
  Jpg: TJpegImage;
  GraphType: TGraphType;
begin
  Stream := TMemoryStream.Create;
  try
    if Assigned(Query1.FieldByName('logo')) then
      try
        TBlobField(Query1.FieldByName('logo')).SaveToStream(Stream);
        if Stream.Size > 0 then
        begin
          Stream.Position := 0;
          Stream.Read(GraphType, 1);

          case GraphType of
            gtBitmap:
              Image1.Picture.Bitmap.LoadFromStream(Stream);
            gtIcon:
              Image1.Picture.Icon.LoadFromStream(Stream);
            gtMetafile:
              Image1.Picture.Metafile.LoadFromStream(Stream);
            gtJpeg:
            begin
              Jpg := TJpegImage.Create;
              try
                Jpg.LoadFromStream(Stream);
                Image1.Picture.Assign(Jpg);
              finally
                Jpg.Free;
              end;
            end else
              Image1.Picture.Assign(nil);
            end;
          end else
            Image1.Picture.Assign(nil);
      except
        on e: Exception do
        begin
          Image1.Picture.Assign(nil);
          raise;
        end
      end;
  finally
    Stream.Free;
  end;
end;