[friz]

Все очень просто! ошибка в скобках! должно быть так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='123';
end;


procedure TForm1.Button11Click(Sender: TObject);
  begin
  if Edit1.Text='123' then
A1:=123
    else
ShowMessage('Error1');
  if Edit1.Text='123' then
A0:=A1+A5   - чему равно А5?
    else
showmessage('Error');
Edit1.Text:=IntToStr(A0);
  end;