Несовместимость двух операторов

[August550]

Здравствуйте, помогите разобраться.

вот код Процедуры

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift : TShiftState; X, Y : Integer);
begin
 Image1.Tag := 1;
 Shift := Y;  // Здесь линия ошибки
 Shift := X;
end;

а вот ошибка

Incompatible types: 'TShiftState' and 'Integer'

Я понял что Shift присвоен TShiftState, а Y и X - Integer и в этом беда их несовместимости.
Какую корректировку нужно произвести?

[SERG1980]

В данном случае переменная Shift определяет состояния клавиш шифт контрл или альт, если у вас есть переменная с таким же названием то переименуйте её

[mihali4]

Посмотрите внимательно на заголовок процедуры и особое внимание обратите на список параметров.
У вас там есть:
Shift : TShiftState;
X, Y : Integer
Честно говоря, смысл операторов
Shift := Y;
Shift := X;
я абсолютно не улавливаю, даже если бы вместо Shift было бы другое имя переменной.
Ну и конечно, нельзя присваивать друг другу значения разнотипных переменных, о чем вам и написал компилятор в ошибке...

[August550]

Кстати товарищи еще есть такой вопросик.
Т.к. тематика топика относится к той же программе, о которой я хочу задать свой следующий вопрос - не стану нагружать вас еще одной темой и спрошу здесь же. Извиняюсь если не так что.

Вот я создал проект. В него входит, как бы то сказать, несколько встроенных игр. Работать это все должно следующим образом: Я нажимаю на клавишу, и появляется новая форма с игрой, которую можно также закрыть чтобы вернуться к основной форме с кнопками из предложенных других игр.
Ошибок нет, все исправлено но мне вот что выдает всегда при запуске программы


=> насладиться я своим творением не могу Прошу подсказать что может где и как я накосячил.

[MusicMan]

Косяк реальный. Ищи чё, где и почему. И кстати, компилер строчек
никаких не высвечивает?

[mihali4]

насладиться я своим творением не могу Прошу подсказать что может где и как я накосячил.

Под Дельфи запускаете и смотрите по шажочкам.
Сразу могу сказать - обращение к несуществующему объекту...

[MusicMan]

Если "обращение к несуществующему объекту", обычно
не может обратиться к $00000000 memory

[August550]

Ну на счет обращения к несуществующему объекту вполне реально т.к. сама игра можно сказать прикреплена и написана не мной. Исправил недочеты все вроде т.к. ошибок не выступает и в момент запуска программы вот такая вот "байда".

А кстати ошибки потом указывает выделенной синим строчкой на один из end; 'ов

[mihali4]

А кстати ошибки потом указывает выделенной синим строчкой на один из end; 'ов

Вот. Поставьте бряку на первый оператор этого блока бегин/энд и пройдитесь шагами.

[Stilet]

Нда... Гадания на кофейной гуще.
Автор, если хочеш путевый ответ задавай путевый вопрос, ошибки и код желательно приводить, если конечно эти ошибки не являются секретной собственностью ЦэРэУ )