unit URekord;

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


Type

MRekord = class(TObject)
end;

MOsobaRec = class(MRekord)
public
   idosoby       : Integer;
   nazwisko      : String[25];
   imie          : String[15];
   dataur        : TDate;
   mcowosc       : String[35];
   ulicainr      : String[50];
   kodp          : String[6];
   miasto        : String[35];
   pesel         : String[11];
end;

implementation

end.
