Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm2 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Xmin:=StrToFloat(Edit1.Text);

Form1.Label5.Caption:= FloatToStr(Xmin);

Form2.Close;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(Xmin);

end;

end.

unit Unit3;

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm3 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

BitBtn1: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

Implementation

uses Unit1 ;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(Xmax);

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Xmax:=StrToFloat(Edit1.Text);

Form1.Label6.Caption:= FloatToStr(Xmax);

Form3.Close;

end;

end.

unit Unit4;

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm4 = class(TForm)

BitBtn1: TBitBtn;

Label1: TLabel;

Edit1: TEdit;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(Ymin);

end;

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Ymin:=StrToFloat(Edit1.Text);

Form1.Label10.Caption:= FloatToStr(Ymin);

Form4.Close;

end;

end.

unit Unit5;

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm5 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

Implementation

uses unit1;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Ymax:=StrToFloat(Edit1.Text);

Form1.Label11.Caption:= FloatToStr(Ymax);

Form5.Close;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(Ymax);

end;

end.

unit Unit5;

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm5 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;