unit UHeaders;

interface

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

type

MOsoba = class
private
   Nazwisko : String;
   Imie     : String;
   DataUr   : TDate;

public
   function    GetNazwisko() : String; virtual; abstract;
   function    GetImie() : String; virtual; abstract;
   function    GetDataUr() : TDate; virtual; abstract;

   procedure   SetNazwisko(Value: String); virtual; abstract;
   procedure   SetImie(Value: String); virtual; abstract;
   procedure   SetDataUr(Value: TDate); virtual; abstract;

   constructor Create(); virtual; abstract;
end;

function GetOsobaObject() : MOsoba; stdcall; external 'klasa.dll';

implementation

end.
