unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure OnTextBoxChange(Sender: TObject);
end;

var
Form1: TForm1;
ListBox: TListBox;
TextBox: TEdit;

implementation

{$R *.dfm}

procedure TForm1.OnTextBoxChange(Sender: TObject);
begin
TextBox.Text:= inttostr(Form1.Width);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption:='õç ÷òî';
Form1.Width:=600;
Form1.Height:=600;
ListBox:= TListBox.Create(Form1);
ListBox.Parent:= Form1;
ListBox.Height:= Form1.Height-70;
ListBox.Width:= 250;
TextBox:= TEdit.Create(Form1);
TextBox.Parent:= Form1;
TextBox.Width:=250;
TextBox.Text:='îòñêàíèðóéòå øòðèõ-êîä';
TextBox.OnChange:= Form1.OnTextBoxChange;
end;

end.