Variable 'Bitmap' might not have been initialized

var
Bitmap: TBitmap;
BS: TBlobStream;
begin
try
BS:= TBlobStream.Create(TBlobField(DM.HLook.FieldByName('Ôîòî')), bmRead);
BS.Seek(82, soFromBeginning);
Bitmap:= TBitmap.Create;
Bitmap.LoadFromStream(BS);
DBImage1.Picture.Graphic:= Bitmap;
finally
Bitmap.Free;
BS.Free;

var
Bitmap: TBitmap;
BS: TBlobStream;
begin
 BS:= TBlobStream.Create(TBlobField(DM.HLook.FieldByName('Фото')), bmRead);
 Bitmap:= TBitmap.Create;
try
 BS.Seek(82, soFromBeginning);
 Bitmap.LoadFromStream(BS);
 DBImage1.Picture.Graphic:= Bitmap;
finally
 Bitmap.Free;
 BS.Free;

uses jpeg;
     
    procedure TForm1.Button1Click(Sender: TObject);
    var
      jpeg: TJPEGImage;
      bmp: TBitmap;
    begin
      if  PictureDialog1.Execute then
      begin
        jpeg := TJPEGImage.Create;
        bmp := TBitmap.Create;
        try
          jpeg.LoadFromFile(PictureDialog1.FileName);
          bmp.Assign(jpeg);
          ADOTable1.Edit;                  // режим редактирования
          ADOTable1.FieldByName('Фото').Assign(bmp);//загрузка фото
          ADOTable1.Post;                  // сохраняем данные
        finally
          jpeg.Free;
          bmp.Free;
        end;
      end;
    end;

procedure TForm1.Button2Click(Sender: TObject);
var
  bmp        : TBitmap;
  Source     : TImage;
begin
  if OpenPictureDialog1.Execute then
  try
   begin
      bmp := TBitmap.Create;
 
      Source := TImage.Create(nil);
      Source.Picture.LoadFromFile(OpenPictureDialog1.FileName);
 
      bmp.Width := Source.Picture.Width;
      bmp.Height := Source.Picture.Height;
      bmp.Canvas.Draw(0, 0, Source.Picture.Graphic);
 
       ADOTable1.Edit;                  // режим редактирования
       ADOTable1.FieldByName('Фото').Assign(bmp);//загрузка фото
       ADOTable1.Post;      
 
    end;
  finally
  FreeAndNil(bmp);
  FreeAndNil(Source);
  end;
end;

uses jpeg, pngimage, GIFImg;