unit UKlasa;

interface

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

Type

Test = class(TObject)
end;

MOsoba = class
public
   nazwisko : String;
   imie     : String;

   destructor Destroy(); override;
end;

Proba = class
public
   nazwisko : String;
   waga     : Double;
   wiek     : Integer;
   plec     : Char;

	procedure Show();
end;

{------------------------------------------------------------------------------}
implementation
Uses
   Main;

destructor MOsoba.Destroy();
begin
	inherited;
end;

procedure Proba.Show();
begin
   MainForm.Memo.Lines.Add('nazwisko:');
   MainForm.Memo.Lines.Add(nazwisko);
   MainForm.Memo.Lines.Add('waga:');
   MainForm.Memo.Lines.Add(FloatToStr(waga));
   MainForm.Memo.Lines.Add('wiek:');
   MainForm.Memo.Lines.Add(IntToStr(wiek));
   MainForm.Memo.Lines.Add('plec:');
   MainForm.Memo.Lines.Add(plec);
end;

end.
