IMAGEM NO BANCO DE DADOS

[NANCOUTO]

Gostaria de saber como faço para gravar uma imagem no campo destinado a imagem na tabela criada por mim.

[adassoft]

Amigo aqui estou tentando usar assim

procedure TFormFr_patrimonio.AbrirImagemClick(Sender: TObject);
var
image_BD : TJpegImage;
foto_stream : TMemoryStream;
begin
if DlgAbrirImagem.Execute and FileExists(DlgAbrirImagem.FileName) and
(ActiveControl is TDBImage) then
begin
foto_stream := TMemoryStream.Create;
image_BD := TJpegImage.Create();
foto_stream.Clear;

try
foto_stream.LoadFromFile(DlgAbrirImagem.FileName);
if (foto_stream.Size < 30000) then
begin
image_BD.LoadFromFile(DlgAbrirImagem.FileName);
Clipboard.Assign(image_BD);
TDBImage(ActiveControl).PasteFromClipboard;
Clipboard.Clear;
end else begin
showMessage('Tamanho da imagem excedeu a 20Kb');
end;
finally
image_BD.Free;
foto_stream.Free;
end;
end;
end;

Está sando no banco normalmente, entretanto, não estou concordando com o tamanho, uma imagem de 27 kb de 600x800 está aumentando o tamanho do banco de dados em 1,8 mb. Inicialmente a mesma imagem 27 kb estava aumentando mais de 3mb ao ser salva no banco, mudei o código para usar o Jpg reduziu pela metade.