Berman, сделал как ты сказал

var s: String;
var i: Integer
begin
edit1.text := strtoint(edit2.text);
edit3.text := s.Insert("_", s.Length() - i + 2);

что та ошибку выдает, могешь в кратце описать что делает что? )