Orientação a Objetos

type
  // definição da classe
  TFotografia = class
  private
    FImagem: TImage;
  public
    procedure Foto; overload;
    procedure Foto(BI: TImage); overload;
    procedure Foto(FilePath: string); overload;
  published
    property Imagem: TImage read FImagem;
  end;

{ TFotografia }
// implementação dos métodos da classe
procedure TFotografia.Foto;
begin
  FImagem := nil;
end;

procedure TFotografia.Foto(BI: TImage);
begin
  FImagem := BI;
end;

procedure TFotografia.Foto(FilePath: string);
begin
  if not Assigned(FImagem) then
    raise Exception.Create(´Não há uma imagem associada à propriedade Imagem´)
  else
    FImagem.Picture.LoadFromFile(FilePath);
end;