[gpavel]

не пойму что не так почему не работает

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1KeyPress(Sender: TObject; var Key: Char);
    procedure Summ(var j,i:integer);


  private

    { Private declarations }
  public
  j,i:integer;

    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var l,res,op,rop: integer;
begin
randomize;
l:=random(100);
res:=random(100);
Summ(l,res);
op:=StrToInt(label1.Caption);
rop:=StrToInt(label3.Caption);
if op+rop=StrToInt(label5.Caption) then ShowMessage( 'правельно')
else ShowMessage( ' не правельно') ;
label5.Caption:='';
end;
procedure TForm1.FormCreate(Sender: TObject);
var l,res : integer;
begin

//randomize;
//l:=random(100);
//res:=random(100);
//Summ(l,res);
end;

procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
form1.Label5.Caption:=form1.Label5.Caption+key;
end;

procedure TForm1.Summ(var j, i: integer);

begin      if   (j=i) and((j+i)>100) then
 begin
  if j>50 then j:=j-50;
  if j>60 then j:=j-60;
  if j>70 then j:=j-70;
  if j>80 then j:=j-80;
  if j>90 then j:=j-90;
end;

if (j+i)>100 then
begin
  if i>j then begin
  i:=i-j;
  end;
end;
if (j+i)>100 then
 begin
  if j>i then    begin
   j:=j-i;
  end;
end;
edit1.Text:= IntToStr(i);
edit2.Text:= IntToStr(j);
form1.Label1.Caption:=IntToStr(i);
form1.Label3.Caption:=IntToStr(j);
//if j+i=StrToInt(label5.Caption) then ShowMessage( 'правильно')
//else ShowMessage( ' не правильно') ;
//memo1.Lines[r]:=IntToStr(i)+'+'+inttostr(j);
//label5.Caption:='' ;



end;

end.

lmikle: Первое предупреждение!