Salvar imagem em tabela Paradox no Delphi

O exemplo abaixo demonstra como salvar imagens Bitmap em 
tabelas Paradox.

1. Crie uma tabela Paradox com um campo do tipo Binary (B).



2. Coloque no form um Table e ligue-o com a tabela Paradox 
recém criada.

3. Coloque também um OpenDialog.

4. Para carregar a imagem de um arquivo bitmap para a tabela
faça assim:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
begin
  if not OpenDialog1.Execute then
    Exit;

  Bmp := TBitmap.Create;
  try
    Bmp.LoadFromFile(OpenDialog1.FileName);

    Table1.Insert;
    Table1.FieldByName('Imagem').Assign(Bmp);
    Table1.Post;

  finally
    Bmp.Free;
  end;
end;

Para mostrar no form a imagem que foi salva na tabela
siga o exemplo:

procedure TForm1.Button2Click(Sender: TObject);
var
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.Assign(Table1.FieldByName('Imagem'));
    Form1.Canvas.Draw(0, 0, Bmp);
  finally
    Bmp.Free;
  end;
end;

Observações

O exemplo acima pinta a imagem diretamente no Canvas do Form1. Uma alternativa mais elegante seria usar um objeto TImage para mostrar a imagem. Para salvar em outros bancos de dados a técnica usava será semelhante.