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

unit Unit7;

interface

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

type
TForm7 = class(TForm)
Memo1: TMemo;
BitBtn1: TBitBtn;
BitBtn5: TBitBtn;
Splitter1: TSplitter;
private
{ Private declarations }
public
{ Public declarations }
end;
type massvobod = record
v:integer;
s:integer
end;
var
Form7: TForm7;
i,j,countS:integer;
ms:array[1..50] of massvobod;

implementation
uses unit1;
{$R *.dfm}

end.