Delphi программа

[Deoxes]

В описываемой ниже программе пользователь вводит два целых числа, а
программа вычисляет и показывает их произведение. Сделал всё по инструкции НО как всегда ничего не работает, ошибки связанные с X (икс) и Y (игрек). 2 дня сижу и думаю что сделать, изучаю делфи по учебнику 4й день но не выходит. Можете исправить ошибки и сказать как, хочу научиться сам работать. Заранее спасибо.

unit Prost;

interface

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

type
  TfmExample = class(TForm)
    Panel1: TPanel;
    bbRun: TBitBtn;
    bbClose: TBitBtn;
    IbOutput: TLabel;
    mmOutput: TMemo;
    bbResuit: TBitBtn;
    edinput: TMaskEdit;
    procedure bbRunClick(Sender: TObject);
    procedure bbResuitClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations } X,Y: Integer;
  public
    { Public declarations }
  end;

var
  fmExample: TfmExample;

implementation

{$R *.dfm}

procedure TfmExample.bbRunClick(Sender: TObject);
// Обработка ввода 1-го операнда 
begin
// Преобразуем текст из edinput в целое число 
Х := StrToint(Trim(edinput.Text));
// Сообщаем в Memo о вводе 1-го операнда
mmOutput.Lines.Add('1-й операнд: '+edinput.Text);
edinput.Text := ''; // Очищаем ввод
edinput.SetFocus;// и возвращаем ему фокус
IbOutput.Caption := 'Введите 2-й операнд:';
bbResuit.Show; // Показываем кнопку bbResuit
bbRun.Hide; // и прячем bbRun
end;

procedure TfmExample.bbResuitClick(Sender: TObject);
// Обработка ввода 2-го операнда
begin // Преобразуем текст из edinput в целое число:
Y := StrToint(Trim(edinput.Text));
// Сообщаем в Memo о вводе 2-го операнда:
mmOutput.Lines.Add('2-й операнд:'+edinput.Text);
// Вычисляем и показываем результат:
mmOutput.Lines.Add('Результат: '+ intToStr(X)+' *
'+intToStr(Y)+' = '+intToStr(X*Y));
edinput.Text := ''; // Очищаем ввод 
edinput. SetFocus; 
// и возвращаем ему фокус
IbOutput.Caption := 'Введите 1-й операнд; bbResuit.Hide;
// Прячем кнопку 
bbResuit bbRun.Show; 
// и показываем bbRun
end;


procedure TfmExample.FormActivate(Sender: TObject);
// Подготовка к началу работы 
begin
edinput.SetFocus; // Передаем фокус ввода редактору
edinput
IbOutput.Caption := 'Введите 1-й операнд:';
end;

end.

[ZX Spectrum-128]

А какие конкретно ошибки, связанные с x и y? Компилятор ругается на синтаксис, или х и у вычисляются неверно?

[Deoxes]

Вот ошибки

Error
Illegal character in input file: 'X'($D5)
Unterminated string
Missing operator or semicolon
Incompatible types: 'String' and 'Boolean'

[ZX Spectrum-128]

Illegal character in input file: 'X'($D5) - русская буква Х
Unterminated string - где-то нет закрывающей кавычки
Missing operator or semicolon - нет точки с запятой
Incompatible types: 'String' and 'Boolean'

[Deoxes]

Incompatible types: 'String' and 'Boolean' а ето что за ошибка?
IbOutput.Caption := 'Введите 1-й операнд:'; - Missing operator or semicolon ошибку выдаёт в етой строчке, непойму что делать

[Stilet]

Это значит что ты в переменную типа String пытаешся пихнуть переменную логического типа.

[Deoxes]

Виталий а что тут неправильно
IbOutput.Caption := 'Введите 1-й операнд:'; - Missing operator or semicolon

[ZX Spectrum-128]

IbOutput.Caption := 'Введите 1-й операнд; bbResuit.Hide;
                                --------^ пропущена кавычка

[Deoxes]

IbOutput.Caption := 'Введите 1-й операнд:';
в том то и дело что кавычка есть и ошибку выдаёт

[ZX Spectrum-128]

Не в той строке. Посмотрите в той строке, которую я выделил.