Присваивание ссылки на класс интерфейсной ссылке

[Aleks26]

Объясните мне кто-нибудь такую непонятную для меня ситуацию:
у меня определен один интерфейс и один класс, его реализующий

unit UseInterface;
interface

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

type
 Imessages = interface(IInterface)
  procedure Message1;
 end;

 TClassWithMessages = class(TInterfacedObject, Imessages)
  procedure Message1;
 end;

На форме просто поле ввода Edit1 и кнопка Button1.

В описательной части модуля:

procedure TClassWithMessages.Message1;
begin
 ShowMessage('Выполнена процедура Message1');
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
 clm1: Imessages;
 classmes1: TClassWithMessages;
begin
 if (Key=#13) and (Edit1.Text <> '') then
  begin
   classmes1 := TClassWithMessages.Create;
   clm1 := classmes1;
   clm1.Message1;
   Button1.SetFocus;
  end;
end;

После оператора Create переменная classmes1 нормально идентифицируется. А после выделенного оператора присваивания, в Наблюдателе clm1 нормальная, а около classmes1 выдается сообщение: "Variable 'classmes1' inaccessible here due to optimization". Почему после простого присваивания ссылка на класс, которую я присвоил становится недоступной?

[RinatV]

Аналогичная ситуация http://programmersforum.ru/showthread.php?t=195525
только отображается в watch, а не на всплывающей подсказке значения.
Если все таки охото посмотреть локальные переменные функций, то отключите оптимизацию при компиляции. В Delphi 7 это Project -> Options... -> Complier убрать галочку с Optimization в группе Code optimization.

[Slym]

не недоступной, а просто отладчик в силу своей тупости не может найти ее значение

[Пепел Феникса]

причем тут отладчик?
это черта оптимизатора, а он видит что дальше переменная не нужна, потому и убирает её(переменную, но не объект).

[Aleks26]

Большое спасибо за ответы. Главное, я уяснил, что это не какая-то моя ошибка, а примочки компилятора.