procedure TfrmObras.DocumentosdeObrasTbAfterOpen(DataSet: TDataSet);
var
    flujo:tstream;
begin
    if not documentosdeobrastb.IsEmpty then
    try
        lasfotos.clear;
        flujo:=tmemorystream.Create;
        flujo:=documentosdeobrastb.CreateBlobStream(DocumentosdeObrasTbIMAGENDELDOCUMENTO,bmRead);
        flujo.position:=0;
        lasfotos.mio.LoadFromStreamTIFF(flujo);
    finally
        flujo.Free;
    end;


end;