So es ist schon mal gelöst.
Ich habe es nun so gemacht:
Code:
procedure TfrmMain.SendTextViaIntent(const AText: string);
var
Intent: JIntent;
begin
Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
Intent.setData(StrToJURI(AText));
SharedActivity.startActivity(Intent);
end;
Vielen Dank Euch