procedure hatası

var

  // PANELLER

  PnlMain, PnlLens, PnlCell, PnlMicroscope, PnlInfo: TclProPanel;

  // BUTONLAR

  BtnStart, Btn4x, Btn10x, Btn40x: TclProButton;

  BtnPlant, BtnAnimal, BtnBack, BtnInfo, BtnReset: TclProButton;

  // LABEL

  LblTitle, LblZoom, LblInfo: TclProLabel;

  // IMAGE

  ImgMicroscope: TclProImage;

  // STATE 

  selectedZoom: String;

  selectedCell: String;

  infoVisible: Boolean;

// =====================

// RESET

// =====================

void ResetApp

{

  selectedZoom = '';

  selectedCell = '';

  infoVisible = false;

}

// =====================

// START PAGE

// =====================

void DrawStartPage(TargetForm: TclForm)

{

  TargetForm.SetFormColor('#E8F5E9', '', clGNone);

  ResetApp;

  PnlMain = TargetForm.AddNewProPanel(TargetForm, 'PnlMain');

  PnlMain.Align = alClient;

  LblTitle = TargetForm.AddNewProLabel(PnlMain, 'LblTitle', 'Sanal Mikroskop');

  LblTitle.Align = alTop;

  LblTitle.Height = 70;

  LblTitle.Margins.Top = 120;

  LblTitle.clProSettings.FontSize = 24;

  LblTitle.clProSettings.FontHorzAlign = palCenter;

  LblTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#1B5E20');

  LblTitle.clProSettings.TextSettings.Font.Style = [fsBold];

  LblTitle.SetclProSettings(LblTitle.clProSettings);

  BtnStart = TargetForm.AddNewProButton(PnlMain, 'BtnStart', 'Mikroskopa Başla');

  BtnStart.Align = alTop;

  BtnStart.Height = 55;

  BtnStart.Margins.Left = 40;

  BtnStart.Margins.Right = 40;

  BtnStart.Margins.Top = 40;

  BtnStart.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2E7D32');

  BtnStart.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnStart.clProSettings.RoundHeight = 12;

  BtnStart.clProSettings.RoundWidth = 12;

  BtnStart.SetclProSettings(BtnStart.clProSettings);

  BtnStart.OnClick = procedure

  {

    DrawLensPage(TargetForm);

  }

}

// =====================

// LENS PAGE

// =====================

void DrawLensPage(TargetForm: TclForm)

{

  TargetForm.DeleteAllObjects;

  PnlLens = TargetForm.AddNewProPanel(TargetForm, 'PnlLens');

  PnlLens.Align = alClient;

  LblTitle = TargetForm.AddNewProLabel(PnlLens, 'LblLens', 'Mercek Seç');

  LblTitle.Align = alTop;

  LblTitle.Height = 60;

  LblTitle.clProSettings.FontHorzAlign = palCenter;

  LblTitle.SetclProSettings(LblTitle.clProSettings);

  Btn4x = TargetForm.AddNewProButton(PnlLens, 'Btn4x', '4X Mercek');

  Btn4x.Align = alTop; Btn4x.Height = 50;

  Btn10x = TargetForm.AddNewProButton(PnlLens, 'Btn10x', '10X Mercek');

  Btn10x.Align = alTop; Btn10x.Height = 50;

  Btn40x = TargetForm.AddNewProButton(PnlLens, 'Btn40x', '40X Mercek');

  Btn40x.Align = alTop; Btn40x.Height = 50;

  Btn4x.OnClick = procedure

  {

    selectedZoom = '4x';

    DrawCellPage(TargetForm);

  }

  Btn10x.OnClick = procedure

  {

    selectedZoom = '10x';

    DrawCellPage(TargetForm);

  }

  Btn40x.OnClick = procedure

  {

    selectedZoom = '40x';

    DrawCellPage(TargetForm);

  }

}

// =====================

// CELL PAGE

// =====================

void DrawCellPage(TargetForm: TclForm)

{

  TargetForm.DeleteAllObjects;

  PnlCell = TargetForm.AddNewProPanel(TargetForm, 'PnlCell');

  PnlCell.Align = alClient;

  LblTitle = TargetForm.AddNewProLabel(PnlCell, 'LblCell', 'Hücre Seç');

  LblTitle.Align = alTop;

  LblTitle.Height = 60;

  LblTitle.clProSettings.FontHorzAlign = palCenter;

  LblTitle.SetclProSettings(LblTitle.clProSettings);

  BtnPlant = TargetForm.AddNewProButton(PnlCell, 'BtnPlant', 'Bitki Hücresi');

  BtnPlant.Align = alTop; BtnPlant.Height = 50;

  BtnAnimal = TargetForm.AddNewProButton(PnlCell, 'BtnAnimal', 'Hayvan Hücresi');

  BtnAnimal.Align = alTop; BtnAnimal.Height = 50;

  BtnPlant.OnClick = procedure

  {

    selectedCell = 'plant';

    DrawMicroscope(TargetForm);

  }

  BtnAnimal.OnClick = procedure

  {

    selectedCell = 'animal';

    DrawMicroscope(TargetForm);

  }

}

// =====================

// IMAGE FUNCTION 

// =====================

function GetImagePath: String

{

  if(selectedCell == 'plant')

  {

    if(selectedZoom == '4x') Result= 'plant4x.jpg';

    if(selectedZoom == '10x') Result ='plant10x.jpg';

    if(selectedZoom == '40x') Result ='plant40x.jpg';

  }

  else

  {

    if(selectedZoom == '4x') Result ='animal4x.jpg';

    if(selectedZoom == '10x') Result= 'animal10x.jpg';

    if(selectedZoom == '40x') Result= 'animal40x.jpg';

  }

  Result ='';

}

// =====================

// INFO TEXT

// =====================

function GetInfoText: String

{

  if(selectedCell == 'plant')

  {

    Result= 'Bitki hücreleri kloroplast içerir ve fotosentez yapar.';

  }

  else

  {

    Result ='Hayvan hücrelerinde hücre duvarı yoktur.';

  }

}

// =====================

// MICROSCOPE PAGE

// =====================

void DrawMicroscope(TargetForm: TclForm)

{

  TargetForm.DeleteAllObjects;

  PnlMicroscope = TargetForm.AddNewProPanel(TargetForm, 'PnlMicroscope');

  PnlMicroscope.Align = alClient;

  PnlMicroscope.clProSettings.BackgroundColor = clAlphaColor.clBlack;

  PnlMicroscope.SetclProSettings(PnlMicroscope.clProSettings);

  LblZoom = TargetForm.AddNewProLabel(PnlMicroscope, 'LblZoom', selectedZoom);

  LblZoom.Align = alTop;

  LblZoom.Height = 40;

  LblZoom.clProSettings.FontColor = clAlphaColor.clWhite;

  LblZoom.clProSettings.FontHorzAlign = palCenter;

  LblZoom.SetclProSettings(LblZoom.clProSettings);

  ImgMicroscope = TargetForm.AddNewProImage(PnlMicroscope, 'ImgMicro');

  ImgMicroscope.Align = alCenter;

  ImgMicroscope.Width = 300;

  ImgMicroscope.Height = 300;

  ImgMicroscope.LoadFromFile(GetImagePath());

  BtnInfo = TargetForm.AddNewProButton(PnlMicroscope, 'BtnInfo', 'Bilgi');

  BtnInfo.Align = alTop;

  BtnInfo.Height = 45;

  BtnInfo.OnClick = procedure

  {

    //infoVisible <> infoVisible;

    if(infoVisible)

    {

      PnlInfo.Visible = true;

    }

    else

    {

      PnlInfo.Visible = false;

    }

  }

  PnlInfo = TargetForm.AddNewProPanel(PnlMicroscope, 'PnlInfo');

  PnlInfo.Align = alBottom;

  PnlInfo.Height = 100;

  PnlInfo.Visible = false;

  LblInfo = TargetForm.AddNewProLabel(PnlInfo, 'LblInfo', GetInfoText());

  LblInfo.Align = alClient;

  LblInfo.clProSettings.FontColor = clAlphaColor.clWhite;

  LblInfo.clProSettings.FontHorzAlign = palCenter;

  LblInfo.SetclProSettings(LblInfo.clProSettings);

  BtnReset = TargetForm.AddNewProButton(PnlMicroscope, 'BtnReset', 'Tekrar Seç');

  BtnReset.Align = alBottom;

  BtnReset.Height = 50;

  BtnReset.OnClick = procedure

  {

    DrawLensPage(TargetForm);

  }

  BtnBack = TargetForm.AddNewProButton(PnlMicroscope, 'BtnBack', 'Ana Sayfa');

  BtnBack.Align = alBottom;

  BtnBack.Height = 50;

  BtnBack.OnClick = procedure

  {

    DrawStartPage(TargetForm);

  }

}

Sanal mikroskop yapmak istiyorum. 3 türde mercek ekledim butonlara ama bu ileri geri seçimlerde geri dönüşleri yapamıyor ve bir sonraki aşamalarında mikroskopta hayvan ve bitki hücrelerini incelemek isteyecek ve bunla ilgili procedurelerde de hata alıyorum. Benim amacım tek düze gitmesin mobil uygulama mesela öğrenci mercek türlerinden mikroskopta 4x ve hayvan hüresini gözlemledi ama tekrardan uygulamaya giriş çıkış yapmasın .Benim istediğim uygulamada geriye dönüş yapsın ve diğer mercekleri seçsin ve diğer hücreleri de seçebilsin. Birde bu görsellerde de lisans hatası veriyor. Bana bunla ilgili yardımcı olur musunuz