Ya, me respondo y a cualquiera que le pueda ser util
Código Delphi
[-]procedure TFrmCalculadora.AcPegarExecute(Sender: TObject);
var
Clipboard: IFMXClipboardService;
Value: TValue;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,
IInterface(Clipboard)) then
begin
Value := Clipboard.GetClipboard;
if StrToFloatDef(Value.AsString, -0) <> -0 then
Display.Text:=Value.AsString
else
Display.Text:='0';
end;
end;
end;