[firebase-br] Gravando foto

[tmg-marcelo]

  If (Key = Vk_Space) Then
    Begin
      Key := 0;
      If EscFoto.Execute Then
        Begin
          DmGeral.CLIFOTO.LoadFromFile(EscFoto.FileName);
        end;
    end
  Else If (Key = Vk_Delete) Then
    Begin
      DmGeral.CLIFOTO.Clear;
    end;
Espero ter ajudado...