Mfoox

@Fazzioni Muito obrigado, deu certo! Realmente estou migrando do Java sinto algumas diferenças.

Senhores, boa noite!

Estou com uma dúvida em um exercício em que eu tenho que mostrar qual número é o menor ou o maior inputado.

Porém não está trazendo o resultado correto.

Segue o código.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    lblN1: TLabel;
    lblN2: TLabel;
    edtN1: TEdit;
    edtN2: TEdit;
    btnMostrar: TButton;
    procedure btnMostrarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnMostrarClick(Sender: TObject);
var
  edtN1 : Integer;
  edtN2: Integer;

begin

    if edtN1.Size > edtN2.Size then
      ShowMessage('O número 1 é o maior!')
    else
      ShowMessage('O número 2 é o maior!');
end;

end.