NENHUMA DÚVIDA, APENAS COMPARTILHANDO O CÓDIGO

Nenhuma dúvida, apenas compartilhando como ficou meu código :)

var
  Form2: TForm2;
  VARREAL: REAL;
  VARNOME : STRING;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin

if (DOLAR.Text= '') or (COTA.Text = '')  then

    SHOWMESSAGE('Os campos DOLAR e COTAÇÃO devem estar preenchidos')



ELSE
    BEGIN
    COMPRA.ENABLED := TRUE;
    VARREAL:= STRTOFLOAT(DOLAR.Text) * STRTOFLOAT(COTA.Text) ;
    REAL.Text:= FLOATTOSTR(VARREAL);
    END;


end;

procedure TForm2.COMPRAClick(Sender: TObject);
begin
VARNOME := INPUTBOX('NOME','DIGITE SEU NOME','');

if (VARNOME <> '') AND  (DOLAR.Text <> '0') THEN

 MSG.CAPTION := 'PARABÉNS ' + VARNOME + '!!!' + ' , VOCE COMPROU ' + DOLAR.Text + ' DOLAR(ES)'
 ELSE
    SHOWMESSAGE('FAVOR VERIFIQUE A AUSENCIA DE VALORES EM DOLAR OU NOME DO USUÁRIO');


end;

end.