Выделить целую часть дроби

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, StdCtrls;
 
 
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
   var drob1:TDrob;
   
    {$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
var flag: boolean;
  begin
flag:=(Edit2.Text='0') or (Edit2.Text='') or (Edit1.Text='');
if flag = true  then  ShowMessage ('Vvedite znachenie')
else
if flag =false then
begin
  drob1:=nil;
 drob1:= TDrob.Create (StrToInt(Edit1.Text), StrToInt(Edit2.Text)) ;
Label1.Caption:=IntToStr(drob1.GetChisl);
Label2.Caption:=IntToStr(drob1.GetZnam);
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
  begin
  drob1:=nil;
 drob1:= TDrob.Create;
 Label1.Caption:=IntToStr(drob1.GetChisl);
 Label2.Caption:=IntToStr(drob1.GetZnam);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var ch,z: integer;
  begin
  if drob1 = nil then  ShowMessage ('Vvedite znachenie') else
  begin
  if Edit1.Text='' then  ShowMessage ('Vvedite znachenie') else
if Edit1.Text <> '' then
begin
ch:= StrToInt(Edit1.Text);
drob1.ChangeCh (ch);
Label1.Caption:=IntToStr(drob1.GetChisl);
 Label2.Caption:=IntToStr(drob1.GetZnam);
  if Edit2.Text='' then   ShowMessage ('Vvedite znachenie') else
if Edit2.Text <> '' then
begin
z:= StrToInt(Edit2.Text);
if drob1.ChangeZn (z)=false then ShowMessage ('Vvedite <> 0')  else
begin
z:= StrToInt(Edit2.Text);
if drob1.ChangeZn (z)= true then
 Label2.Caption:=IntToStr(drob1.GetZnam);
 Label1.Caption:=IntToStr(drob1.GetChisl);
end;
end;
end;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
 var
ch,z: integer;
begin
 if drob1 = nil then  ShowMessage ('Vvedite znachenie')else
if drob1.PravDrob then
                  ShowMessage('pravil drob')
                  else
                  begin
                  ShowMessage('nepravil drob');
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
var
ch,z, g: integer;
begin
 if drob1 = nil then  ShowMessage ('Vvedite znachenie') else
 if drob1.PravDrob then ShowMessage('pravil drob')
 else
  begin
         ShowMessage('celay chast:  '+inttostr(g));
 end;
end;
   procedure TForm1.Button3Click(Sender: TObject);
begin
drob1.Free ;
Close;
end;
end.

unit Unit2;
 
interface
 
type TDrob=class
private
     ch, z: integer;
 public
 
  constructor Create; overload;
  constructor Create(ch1: integer; z1: integer); overload;
  procedure ChangeCh   (ch1: integer);
  function ChangeZn(z1: integer): boolean;
    function GetChisl:  integer;
    function GetZnam:  integer;
   function PravDrob: boolean;
  procedure IntPart(ch1, z1: integer);
 
end;
 
implementation
 
constructor TDrob.Create;
 
begin
    ch:=49;
    z:=5;
end;
 
constructor TDrob.Create(ch1, z1: integer);
   begin
    ch:=ch1;
    z:=z1;
   end;
 
  function TDrob.GetChisl():  integer;
 begin
 if z<0 then GetChisl:=ch*(-1)
 else
    GetChisl:=ch;
 end;
 
  function TDrob.GetZnam():  integer;
 begin
 if z<0 then GetZnam:= z*(-1)
 else
    GetZnam:=z;
 end;
  procedure TDrob.ChangeCh(ch1: integer);
begin
  ch:=ch1;
end;
 
function TDrob.ChangeZn(z1: integer): boolean;
begin
if z1=0 then ChangeZn:=false
else
 begin
  z:=z1;
  ChangeZn:=true;
end;
end;
 
 
 
function TDrob.PravDrob(): boolean;
 
begin
   if  abs(ch)<abs(z) then PravDrob:=true
            else PravDrob:=false;
end;
 
procedure TDrob.IntPart(ch1, z1: integer);
var
ch,z, g : integer;
  Begin
  ch:=ch1;
  z:=z1;
  g:= ch div z;
  if PravDrob= false  then    g:= ch div z;
 
  End;
 
end.