// szOrg: 原始字串
// szSub: 要找尋的字串
// iPos: 要插入找到的第幾個結果, iPos至少要為1
// szInsert: 要插入的新字串
Function InsertStr(szOrg: String; szSub: String;
                   iPos: Integer; szInsert: String): String;
var
  slTmp: TStringList;
  i: Integer;    begin
  Result := szOrg;
  if iPos < 1 then Exit;      slTmp := TStringList.Create;
  try
    szOrg := ' '   szOrg   ' ';
    slTmp.Text := StringReplace(szOrg, szSub, #13, [rfReplaceAll]);
    if (slTmp.Count > 1) and (iPos < slTmp.Count) then
    begin
      Result := '';
      for i := 0 to slTmp.Count - 2 do
      begin
        Result := Result   slTmp.Strings[i]   szSub;
        if i = (iPos - 1) then Result := Result   szInsert;
      end;
      Result := Result   slTmp.Strings[slTmp.Count - 1];
      Result := Trim(Result);
    end;
  finally
    slTmp.Free;
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(InsertStr('INABINEFG HIJKLIN BBCINdtjrklsdIN', 'IN', 2, '@@'));
end;