Pascal/Delphi Como se transforma esse código Delphi de console para interface gráfica?

[Eduardo de Quadros]

program usoeletron;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;
var
  idade_anos, tempo_max_uso_eletron: byte;
  permite1_10, permite1_12, permite1_14, permite1_16, permite1_18: string[3];
  permite2_10, permite2_12, permite2_14, permite2_16, permite2_18: boolean;
begin
  try
    write('Qual é a idade do seu filho em anos? ');
    readln(idade_anos);
    writeln;
    if (idade_anos < 2) then
    begin
      tempo_max_uso_eletron := 2;
    end
    else if (idade_anos < 4) then
    begin
      tempo_max_uso_eletron := 4;
    end
    else
    begin
      tempo_max_uso_eletron := idade_anos;
      if (tempo_max_uso_eletron mod 2 = 1) then
      begin
        dec(tempo_max_uso_eletron);
      end;
      tempo_max_uso_eletron := tempo_max_uso_eletron * 2;
      if (tempo_max_uso_eletron > 60) then
      begin
        tempo_max_uso_eletron := 60;
      end;
    end;
    repeat
      write('Você permite que seu filho ouça músicas Funk Normal e use outras ');
      write('mídias não recomendadas para menores de 10 anos? ');
      readln(permite1_10);
      writeln;
    until (permite1_10 = 'sim') or (permite1_10 = 'não');
    if (permite1_10 = 'sim') then
    begin
      permite2_10 := true;
      repeat
        write('Você permite que seu filho ouça músicas Funk Carioca e use ');
        write('outras mídias não recomendadas para menores de 12 anos? ');
        readln(permite1_12);
        writeln;
      until (permite1_12 = 'sim') or (permite1_12 = 'não');
      if (permite1_12 = 'sim') then
      begin
        permite2_12 := true;
        repeat
          write('Você permite que seu filho ouça músicas Heavy Metal e use ');
          write('outras mídias não recomendadas para menores de 14 anos? ');
          readln(permite1_14);
          writeln;
        until (permite1_14 = 'sim') or (permite1_14 = 'não');
        if (permite1_14 = 'sim') then
        begin
          permite2_14 := true;
          repeat
            write('Você permite que seu filho ouça músicas Pouco Explícitas ');
            write('e use outras mídias não recomendadas para menores de 16 ');
            write('anos? ');
            readln(permite1_16);
            writeln;
          until (permite1_16 = 'sim') or (permite1_16 = 'não');
          if (permite1_16 = 'sim') then
          begin
            permite2_16 := true;
            repeat
              write('Você permite que seu filho ouça músicas Muito ');
              write('Explícitas e use outras mídias não recomendadas para ');
              write('menores de 18 anos? ');
              readln(permite1_18);
              writeln;
            until (permite1_18 = 'sim') or (permite1_18 = 'não');
            if (permite1_18 = 'sim') then
            begin
              permite2_18 := true;
            end;
          end;
        end;
      end;
    end;
    write('Então seu filho poderá usar eletrônicos no máximo ');
    write(tempo_max_uso_eletron, ' horas semanais, podendo ouvir músicas ');
    write('infantis');
    if (idade_anos >= 2) then
    begin
      write(', ouvir músicas livres não infantis, ouvir músicas de jogos ');
      write('eletrônicos, assistir filmes e séries livres de personagens ');
      write('fictícios dublados');
    end;
    if (idade_anos >= 4) then
    begin
      write(', jogar jogos eletrônicos livres, assistir filmes e séries ');
      write('livres de personagens reais interpretados, assistir ');
      write('teleprogramas livres de entrevistas e entretenimento, assistir ');
      write('teleprogramas livres de jornalismo');
    end;
    if (permite2_10) then
    begin
      write(', usar mídias não recomendadas para no mínimo 10');
      if (permite2_12) then
      begin
        write(', 12');
        if (permite2_14) then
        begin
          write(', 14');
          if (permite2_16) then
          begin
            write(', 16');
            if (permite2_18) then
            begin
              write(', 18');
            end;
          end;
        end;
      end;
      write(' anos');
    end;
    writeln(' e só!');
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Eu uso a IDE da Embarcadero.

[T1000_2015]

Declare todas as variáveis como globais. Abra um formulário e atribua a cada entrada de dados uma caixa de texto.

Atribua a cada caixa de texto um evento na perda de foco, para validar os dados digitados e mostrar uma caixa de diálogo caso haja necessidade de correção.

No final do formulário, crie um botão ok para executar todas as verificações e gerar o relatório final.