Помогите разобраться, где я неправильно делаю...

Basken

Всем доброго времени суток!

У меня возникла ситуация следующего рода.

В Memo9:TfrMemoView пишу сдледующий скрипт. Но к сожалению в Memo9.Text ничего не отображается. Хотя данные есть. В чем я ошибся? Подскажите плз. если знаете.

begin
  CurID := [dmSlOrder.cdsOrder."crID"];
  if CurID = 1 then begin
    Memo9.Text := 'Цена (у.е)'
  end else if CurID = 4 then begin
    Memo9.Text := 'Цена ( гривна )'
  end else
    Memo9.Text := [dmSlOrder.cdsOrder."crName"]
end

Basken

Проблема решена!