procedure TForm1.Label1Click(Sender: TObject);
begin
  Label1.Top:=label1.Top+20;
  Label1.Color:=clGray;
  Label1.Font.Size:=14;
  Label1.Font.Color:=clRed;
  Label1.Caption:='Я учень 8 класу'+chr(13)+'Городницького ОНЗ';
end;