1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Var
  bmp:TBitMap;
begin
    bmp:=TBitMap.Create;
    try
      bmp.LoadFromFile('C:\Bilder\MeinBild.BMP');
      Bilder.Edit;
      Bilderbild.assign(bmp);
      Bilder.Post;
    finally
      bmp.Free;
    end;
end;                    

1:
2:
3:
4:
5:

begin
      Bilder.Append;
      DBImage1.Picture.Bitmap.LoadFromFile('C:\Bilder1\4KEYBUT.BMP');
      Bilder.Post;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

CREATE TABLE [dbo].[Bilder](
  [id] [int] IDENTITY(1,1) NOT NULL,
  [Bild] [varbinary](max) NULL,
 CONSTRAINT [PK_Bilder] PRIMARY KEY CLUSTERED 
(
  [id] ASC
) ON [PRIMARY]
) ON [PRIMARY]                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

uses LoadSaveImageBlobs,pngimage;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  p:TPicture;
begin
  p := TPicture.Create;
  try
    p.LoadFromFile('C:\Icons\IconCollection\ix_ap_all\128x128\shadow\about.png');
    Bilder.Edit;
    SavePicture2Blob(BilderBild,p);
  finally
    p.Free;
  end;

end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  LoadPictureFromBlob(IMage1.Picture,BilderBild);
end;                    

1:

SavePicture2Blob(TBlobField(Bilder.FieldByName('Bild')),p);