procedure TForm1.Button1Click(Sender: TObject);
var
k,k2,k1:integer;
s: string;
begin
k:= StrToInt(listbox1.Items[listbox1.itemIndex]);
k1:=k mod 10;
k2:=k div 10;
s:='Мне '+inttostr(k);
if ((k1=1)and (k2<>1)) then
s:= s+' год'
else if (k1 in [2..4]) and (k2<>1) then
s:= s+' года'
else
s:= s+' лет';
label2.Caption:=s;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.