Delphi - krótki skrypt

Heretyk [ Konsul ]

Delphi - krótki skrypt

procedure TForm1.Button1Click(Sender: TObject);
begin
Case (wpr.text) of
'krzeslo': wys.Caption:='chair';
'chair': wys.Caption:='krzeslo';
'kaloryfer': wys.Caption:='radiator';
'radiator': wys.Caption:='kaloryfer';
else
showmessage('Nie znaleziono!');
end;

Ta krótka instrukcja w Delphi nie chce mi dziłać. Wie ktoś dlaczego?

Heretyk [ Konsul ]

up