Fórum dbimage/openpicturedialog #232935

De regra o conselho é não armazenar imagens em base de dados pois aumentam bastante o tamanho da base. O ideal é guardar as imagens em um diretório específico e chamá-las a partir daí:

procedure TF_Cadastro.EditCodigoChange(Sender: TObject);
begin

lSol := ´\Iluminar\Imagens\NotImage.jpg´; //Imagem padrão para o caso de não existir imagem disponível para ser mostada.

lImagem := ´\Iluminar\Imagens\´+TabCadastro.FieldByName(´Codigo´).AsString+´.jpg´; //Imagem do cliente, caso exista.

if FileExists(lImagem) then begin
ImgCadastro.Picture.LoadFromFile(lImagem);
end else begin
ImgCadastro.Picture.LoadFromFile(lSol);
end;

end;

Se ainda assim quiser armazenar a imagem em base de dados use o comando:

Procedure TF_Cadastro.ButColarClick(Sende: TObject);
begin
ImageCliente.PasteFromClipboard;
end;

Obs.: faz bastante tempo que não guardo imagens em base de dados, más acho que o comando é esse mesmo.