[^TxTeZ^]

Yo hago lo siguiente para guardar una imagen:

 procedure TFAFLogos.GuardaLogo;
begin
  try
	with (DataSource1.DataSet as TClientDataSet) do
	begin
	  if FAFMLogoCliente.FileName <> '' then
	  begin
		Edit;
		(FieldByName('LOGO') as TBlobField).LoadFromFile(FAFMLogoCliente.FileName);
		Post;
	  end;
	end;
  except
	Forense.Autopsia (ClassName + '.GuardaFoto');
	raise;
  end;
end;