unit UAbstrakcyjne;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

Type

MojaKlasaAbstrakcyjna = class
public
   procedure Open(); virtual; abstract;
end;

MojaKlasa2 = class(MojaKlasaAbstrakcyjna)
public
   procedure Open(); override;
   procedure Set_imie(const Value : String);
end;


implementation

{ MojaKlasa2 }

procedure MojaKlasa2.Open;
begin

end;

procedure MojaKlasa2.Set_imie(const Value: String);
begin

end;

end.
