IOS7 XE5 Focusprobleme

[RWarnecke]

Den Anfang hat Dir Daniel hier schon in diesem Post gezeigt. Meine Procedure sieht dann so aus :

Delphi-Quellcode:

rocedure TMainForm.SetModificationsforiOS;
var
  CurrentDevice: UIDevice;
begin
  CurrentDevice := TUIDevice.Wrap(TUIDevice.OCClass.currentDevice);
  if Pos('7.', String(CurrentDevice.systemVersion.UTF8String)) = 0 then
  begin
    { Alle Aktionen für iOS 6 }
  end
  else
  begin
    { Alle Aktionen für iOS 7 }
  end;
end;

In den beiden begin..end Blöcken setze ich die Eigenschaft Property entsprechend, da zum Beispiel ein Forward-Button unter iOS 6 kleiner ist als unter iOS 7.