var Source, Target : string; begin Source := '12345678'; Target := copy(Source, 3, 4); ShowMessage('Target : '+Target); end;