SOLUÇÃO PARA FATOR DE CONVERSÃO!

Nenhuma dúvida, apenas para mostrar como ficou meu código encontrando uma solução para que o usuário informe o fator de conversão. :)

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.