Курсовая работа: Расчет механизма подъема

edit17.text:=FormatFloat('#0.000',du);

end;

{===============Переход на приложение=====================}

procedure TForm1.Button4Click(Sender: TObject);

begin

form1.Hide;

form2.show;

end;

end.

unit Unit2;

interface

uses

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

Grids, StdCtrls;

type

TForm2 = class(TForm)

Button1: TButton;

Button2: TButton;

StringGrid1: TStringGrid;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;