Ошибки в ListBox

[Geol_60]

Уважаемые форумчане! Как исправить возникшие ошибки, моих знаний в данный момент не хватает... За ранее спасибо!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lst1: TListBox;
    lbl2: TLabel;
    btn1: TButton;
    edt1: TEdit;
    btn2: TButton;
    procedure lst1Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure edt1Click(Sender: TObject);
    procedure edt1KeyPress(Sender: TObject; var Key: Char);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  Math;

{$R *.dfm}

procedure TForm1.lst1Click(Sender: TObject);
begin
(
lst1.Items.add('ë/ñ');
lst1.Items.add('ë/ìèí');
lst1.Items.add('ì3/÷àñ');
)
  lst1.itemindex:=0;

end;

procedure TForm1.btn1Click(Sender: TObject);
var
a:Real;
b:Real;
k:Real;

begin
case  TListBox.ItemIndex    of
  0: k:=86.4;
  1: k:=1.44;
  2: k:=24;
end;
    a:=StrToFloat(edt1.Text);
    b:=a*k;
    lbl2.Caption:='ïîëó÷åí ðåçóëüòàò  '+FlotToStr(b)+'ì3/ñóò';
end;

 procedure TForm1.edt1Click(Sender: TObject; var Key:Char);
begin
   if not (Key in ['0'..'9',#8, DecimalSeparator]) then Key := #0;
end;

 procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
    if not (Key in ['0'..'9',#8, DecimalSeparator]) then Key := #0;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
   Close;
end;

[Stilet]

Во-первых: Что это за скобочки в TForm1.lst1Click. Убирай.
Во-вторых: Если твоих знаний не хватает ты уверен что каждая процедура в коде у тебя привязана к интерфейсу программы?

[Geol_60]

скобки убрал, часть ошибок, связанных с ними исчезло!

[Аватар]

case TListBox.ItemIndex of

чито это

FlotToStr

а это

if not (Key in ['0'..'9',#8, DecimalSeparator]) then Key := #0;

Key откуда? Про скобочки молчу

[Geol_60]

На счёт процедур, неуверен..., скорей всего здесь вся проблема и кроется.

Ошибка, буковку пропустил.. FloatToStr

case TListBox.ItemIndex of
Из книги: Основы программирования в Delphi 7 Никита Культин стр.105

Key в форумах, вычитал.

[Аватар]

Из книги: Основы программирования в Delpfi 7

Че правда такое написал? Вот паразит

Key в форумах, вычитал.

Скорее всего этот код должен быть в другом обработчике, имею ввиду edt1KeyPress