var
  i: integer;
  jpg: tjpegimage;
  ms: tmemorystream;
...

  for i := 0 to 19 do
  begin
    jpg := tjpegimage.Create;
    ms := tmemorystream.Create;
    TBLobfield(FDQuery1.FieldByName('Bild' + inttostr(i))).SaveToStream(ms);
    ms.Position := 0;
    jpg.LoadFromStream(ms);
   
  if ms.Position > 50 then
    begin
      SetLength(PatBildAr, length(PatBildAr) + 1);
      PatBildAr[i] := timage.Create(self);
      PatBildAr[i].Parent := PanelTop;
      PatBildAr[i].Align := alClient;
      PatBildAr[i].Center := true;
      PatBildAr[i].Proportional := true;
      PatBildAr[i].Stretch := true;
      PatBildAr[i].Visible := true;
      PatBildAr[i].Picture.Assign(jpg);
      jpg.Free;
      ms.Free;
    end;
  end;