كيف اقسم الكلمة الموجودة في edit على 2 edit

[King SofT]

وعليكم السلام ورحمة الله

بافتراض ان Edit1 هو الذي يحمل الكلمة الاصلية

كود :

Edit2.Text:=copy(Edit1.Text,1,length(Edit1.Text)div 2); Edit3.Text:=copy(Edit1.Text,length(Edit1.Text)div 2+1,length(Edit1.Text));

بالتوفيق