delphi

unit projekt1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TPrvy_Program = class(TForm)

    Hlavny_formular: TLabel;

    Tlacitko: TButton;

    procedure TlacitkoClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Prvy_Program: TPrvy_Program;



implementation



{$R *.dfm}



procedure THlavny_formular.TlacitkoClick(Sender: TObject);

begin

  if Tlacitko.Caption='Slovensky' then

    begin

      Labell.Caption:='Ahoj Všetci!';

      Tlacitko.Caption:='English';

    end;

  else

    begin

      Labell.Caption:='Hello World!';

      Tlacitko.Caption:='Slovensky';

      end;

  end;

end.