Напишите программу которая выводит на экран имя вашего любимого героя

Программа написана на языке Delphi. Программа выдаёт на экран надпись, вашего любимого киногероя, после нажатия кнопки ввод. Вписанного в текстовое окно.

Button1: TButton;

Edit1: TEdit;

Label1: TLabel;

procedure Button1Click (Sender: TObject);

private

public

end;

var

Form1: TForm1;

r, a:string;

implementation

{$R *. dfm}

procedure TForm1. Button1Click (Sender: TObject);

begin

a: = Edit1. Text;

r: = ' мой любимый герой ';

r: = r+a;

Label1. caption: = r;

end;

end.