Translate this code to delphi vcl application?

Question

Delphi

Translate this code to delphi vcl application? It needs to work with buttons. Through cosol application works.
program vozrast ;
Vard,m,n: Integer;
BEGIN
Writeln('To match a man, enter 1');
Writeln('To match a girl, enter 2');
readln(n);
If n=1 Then
begin
Writeln('Enter the man's age: '); readln(m);
Writeln('Appropriate girl age: ',m/2+7:0:0);
end;
If n=2 Then
begin
Writeln('Enter girl's age: '); readln(d);
Writeln('Appropriate male age: ',d*2-14);
end;
Readln
END.

Answer 1

To work with buttons, you must first make these very buttons ...
Instead of ReadLn - draw an EditText
Instead of WriteLn - draw
a Label