نسخ محتوى نص edit ماعدا الحروف الستة الأولى؟

[nacer dj]

السلام عليكم و رحمة الله تعالى و بركاته
كيف أطبق هذا برمجيا :
1-اذا كان edit1 يحتوى على كلمة visit .انسخ محتوى edit1 (ماعدا كلمة visit) والصقه في edit2

[musvc]

[color="purple"]مثال

كود :

Edit2.Text := Copy(Edit1.Text, 7, Length(Edit1.Text)-6);

سلام[/color]