Проверьте на правильность

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender:TObject);
    procedure Button1Click(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender:TObject);
begin
{
        ListBox1.items.add('Россия');
        ListBox1.items.add('Австрия');
        ListBox1.items.add('Англия');
        ListBox1.items.add('Германия');
        ListBox1.items.add('Дания');
        ListBox1.items.add('Исландия');
        ListBox1.items.add('Италия');
        ListBox1.items.add('Нидерланды');
}
ListBox1.itemindex:=0;
end;
procedure TForm1.Button1Click(Sender:TObject);
var
   funt:real;
   kg:real;
   k:real;
begin
        case ListBox1.ItemIndex of
             0: k:=0.4095;
             1: k:=0.453592;
             2: k:=0.56001;
             3..5,7: k:=0.5;
             6: k:=0.31762;
end;
funt:=StrToFloat(Edit1.Text);
kg:=k*funt;
Label4.Caption:=Edit1.Text
                + ' фунт. - это '
                + FloatToStrF(kg,ffFixed,6,3)
                + ' кг.';
end;
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    procedure Edit1KeyPress (Sender:TObject; var Key:Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.Edit1KeyPress (Sender:TObject; var Key:Char);
var
   n:integer;
   r:integer;
   text:string[10];
begin
if Key = chr(VK_RETURN) then
    begin
         n:=StrToInt(Edit1.Text);
         if n>100
             then n:=n mod 100;
         if (n>=11) and (n<=14)
             then
               text:='рублей'
             else
                begin
                   r:=n mod 10;
                   case r of
                      1:   text:='рубль';
                      2..4:text:='рубля';
                      else text:='рублей';
                   end;
                end;
         Label2.Caption:=IntToStr(n)+text;
    end;
end;
end.