Este es el código:
procedure TForm1.ButtonDotClick(Sender: TObject);
begin
if (POS('.', txtResult.Text))<>0 then
exit
else
txtResult.Text := txtResult.Text + ButtonDot.Caption;
end;
El error que aparece es el siguiente: E2003 Undeclared identifier: 'Caption'
var
está definidoButtonDot
.