Мини-редактор графов / Unit4

unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls, Mask, Spin;

type
TForm4 = class(TForm)
BitBtn1: TBitBtn;
SpinEdit1: TSpinEdit;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation
uses unit1;
{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
ves:=strtoint(SpinEdit1.Text);
close;
end;

end.