Sms 160 karekter çözümü

Merhabalar,

Sizlere Ahmet Yilmaz isimli arkadaştan aldığım bir kodu paylaşmak istiyorum.
Sms ile uğraşan arkadaşların başına %90 gelmiştir bu olay 160 karakter sınırı şuana kadar kendim test edemedim ama sizler kullanabilirsiniz.

Procedure Kisamesaj(Telefon,Mesajmetni:String);
var
  smsManager: JSmsManager;
  smsTo: JString;
  Parts:JArrayList;
begin
  smsManager:= TJSmsManager.JavaClass.getDefault;
  smsTo := StringToJString(Telefon);
  parts:= smsManager.divideMessage(StringToJString(Mesajmetni));
  smsManager.sendMultipartTextMessage(smsTo,nil,Parts, nil, nil);
End;