(Delphi 7) Рандомный ответ при клике на кнопку.

[Jlovenpk1]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   ans: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ans: integer;
begin
ans := random(5)
case ans of \\ ошибка
  0: label1.caption := 'abc';
  1: label1.caption := 'qwe';
  2: label1.Caption := ' Лол что?)';
  3: label1.caption := 'Ты лол?)';
  4: label1.caption := 'опа опа опа -па -па';
end;
begin
randomize

end.

Беда печаль, где же ошибка может быть??

[MoBLer]

у тя тут ошибка

PHP код:

ans := random(5); 


[Jlovenpk1]

Спасибо ^^
( 3% )
До лвл апа еще долго :D

[Alex11223]

Беда печаль, где же ошибка может быть??

Ты б читал на что ругается, наверняка ж было написано, что пропущена ;